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CREATED: 
ENGUEUED: 
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D1 : PILOT . 


; PILOT PROGRAM EQUATE FILE 

9 

} EDIT #99 -- 07-JUN-83 

; 


5 0000 

DEBUG 

= 0 


= 0000 

LITPEN 

= 0 


= 0000 

LOGGRP 

= 0 


- 0000 

DOS 

= 0 


= 0000 

FALSE 

= 0 



; COLLEEN SYSTEM I/C 


= E 4 56 

CIO 

e $£456 


= E400 

IOVBAS 

= $£400 


= E A 0 6 

EPUTC 

= f £ A o 6 


= E A 1 A 

SGETC 

= $£4 14 


= E A 1 6 

SPUTC 

= $£416 


= E A 1 A 

SSPEC 

= seaia 


= EA2A 

KGETC 

= $£424 


= 0010 

IOCBSZ 

= 16 


- 0000 

IOCBO 

= $00 


- 0010 

I OCB 1 

= I UC60+ IOCBSZ 


= 0020 

ICCB2 

= I0CB1+I0C6SZ 


= 0030 

I0CB3 

= 1 0CB2 + I oce sz 


= 00 AC 

I OCB A 

= IQCB3+IGC6SZ 


- 0070 

ICCB7 

s 3*IOCBSZ+ICCBA 

= 03 A 0 

ICHID 

= $ 0 3 A 0 


= 03^1 

ICDNO 

= ICHID+1 


= 03A2 

I C COM 

= ICDNO+1 


= 03 A 3 

ICSTA 

= I CCOM-f 1 


= C3A A 

ICPAL 

= ICSTAtl 


= 03 A5 

ICBAH 

= ICBAL+1 


= 0 3 A 6 

ICPLL 

= ICBAH+1 


= 03 A 7 

ICRLH 

= ICRLL+1 


= 0346 

ICBLL 

- ICRLH+1 


= 03A9 

ICBLH 

= ICBLL+1 


= 03 A A 

ICAUX1 

= ICBLHtl 


= 03Ab 

ICAUX2 

= ICAUXl+l 


= 0022 

I C COM2 

= $0022 

I 

= 0 0 03 

OPEN 

: $03 

• 

= oooc 

CLOSE = 

$oc 

9 

= 0007 

GETC = 

$07 

; 

- oooe 

Pure = 

$ 0 B 

; 

= 0005 

GE TR = 

$05 

• 

f 

- 0009 

PL'TR = 

$09 

• 

9 

= ooon 

OREAD s 

$0A 

; 

- 0006 

OfcRJT r 

$08 

; 

= 0010 

SPLIT = 

$10 

; 

S 0020 

NCCIR s 

$20 

; 


; INCLUDE Dt BUG CODE IF 1, DON'T IF 0. 

? INCLUDE LIGHTPEN CODE IF 1, DON'T IF 0. 

? INCLUDE LOGICAL OPERATORS IF 1, DON'T IF 
? INCLUDE 'DOS' COMMAND IF 1, DON'T IF 0. 


; COLLEEN VECTOR BASE ADDRESS, 


"E: 

"S: 

"Ss 

"S: 

"E: 


PUT CHARACTER. 
GET CHARACTER. 
PUT CHARACTER, 
SPECIAL. 

GET CHARACTER. 


f # OF BYTES PER 10CB. 

; CONSOLE INPUT/OUTPUT. 

? (UNUSED). 

? GRAPHICS INPUT & OUTPUT. 

} LOAD & SAVE I/O. 

? IN; & OUT: USE I0CB4 THRU IOCB7. 


I OCB HANDLER I.D. 
DEVICE #. 

COMMAND BYTE, 

STATUS BYTE. 

BUFFER ADDRESS (LO). 
BUFFER ADDRESS (HI). 
RECORD LENGTH (LO), 
RECORD LENGTH (HI). 
BUFFER LENGTH (LO). 
BUFFER LENGTH (HI), 
AUX1 . 

AUX2. 


; ZERO PAGE IOCB COMMAND BYTE. 

OPEN COMMAND. 

CLOSE COMMAND. 

GET CHARACTER COMMAND. 

PUT CHARACTER COMMAND. 

GET RECORD COMMAND. 

PUT RECORD COMMAND. 

OPEN DIRECTION. 


INHIBIT SCREEN CLEAR OPTICN. 


PILUT 


— H.P, 


ATARI CAVAC 
STEwAKT 


fi sse^b 1 er Ver 


l.OA Pape ? 

D1 JPILOT. 


s 

GOOD 

CR 

= 

$00 

; 

INTERNAL <CR> CODE 

9m 

001C 

CUP 

s 

SIC 

• 

} 

CURSOR UP. 

c 

0 0 1 D 

CDOWN 

r 

SID 

) 

CURSOR DOWN. 

r 

001E 

CLEFT 

mm 

S 1 E 

1 

CURSOR LEFT. 

- 

0 0 1 F 

CRIGHT 

Z 

S 1 F 

; 

CURSOR RIGHT. 

- 

009B 

EOL 

s 

S9B 

• 

9 

ATASCII END OF LINE. 

- 

ootd 

CLEAR 

s 

$70 

• 

9 

MONITOR CLEAR SCREEN. 


COFD 

BELL 

s 

$FD 

; 

BELL CODE. 

r 

005C 

BSLASH 

s 

$5C 

9 

f 

BACK8L SLASH 

s 

007C 

VBAR 

s 

$7C 

• 

f 

VERTICAL BAR 

s 

005B 

SbRACK 

s 

$56 

• 

f 

SQUARE BRACKET 

r 

0027 

SUUOTt 

s 

$27 

; 

SINGLE QUOTE 

= 

0 0 7 F 

TAB 

s 

$ 7 F 

; 

TAB. 



? o.s. 

ROM 

VECTORS 



- 

E 462 

X1TVBV 

x 

$E4b2 

; 

EXIT VBLANK VECTOR. 

= 

E45C 

SETVBV 

- 

SE45C 

• 

9 

SET VECTOR ROUTINE. 


; O.S. DATA BASE 


: 0244 

COLDST 

z 

$0244 

OOOC 

DOS INI 

s 

SOOOC 

0 06 A 

PAMTOP 

9 

$006 A 

0 0 4 F 

COLRSH 

m- 

S004F 

004E 

ORKMSK 

m 

S004E 

02E7 

MEMLO 

z 

$02£7 

02E5 

memhI 

mm 

S02E5 

OOOE 

APPMHI 

z 

S000E 

0C1 1 

BREAK 

s 

$0011 

02FC 

CH 


S02FC 

02F0 

CRSINH 

s 

$02F0 

02FE 

DSPFLG 

mm 

$ 0 2 F E 

C230 

sdlstl 

r 

$0230 

0232 

sskctl 

r 

$0232 

0012 

RTCLOK 

s 

$0012 

0052 

LMARGN 

z 

$0052 

0053 

RMARGW 

z 

$0053 

0055 

CULCRS 

z 

$0055 

0054 

ROWCRS 

z 

$0054 

0057 

DINDEX 

z 

$0057 

0056 

SAVMSC 

z 

$0056 

02BF 

BOTSCR 

z 

S02BF 

0006 

WARMS T 

- 

$0008 

0 0 0 A 

DCS VEC 

s 

$ 0 0 0 A 

026 t 

FINE 

z 

$026E 

026F 

GFRIOR 

«■- 

$ 026 F 

022F 

DMACT 

s 

$ 0 2 2 P 

02C 0 

PCOLRO 

s 

S02CO 

02C4 

COLORO 

z 

S02C4 

0270 

PADDLO 

z 

$0270 

0276 

STICKO 

z 

$0276 

027C 

PTRIGO 

z 

$ 0 2 7 C 

0264 

STRIGO 

z 

$0264 

0234 

LPENH 

s 

$0234 


? SYSTEM COLDSTART FLAG, 

; TOP OF SCREEN ADDRESS (MSB). 

; ATTRACT HUE SHIFT. 

; ATTRACT LUM LIMIT. 

; LOWEST AVAILABLE RAM [WORD]. 

; HIGHEST AVAILABLE PAM (WORD] • 

; APPLICATION MEM HI [WORD), 

; BREAK KEY FLAG. 

; KEYBOARD MATRIX CODE INPUT. 

? CURSOR INHIBIT FLAG. 

; CONTROL BYTE DISPLAY FLAG. 

; DISPLAY LIST ADDRESS. 

? 60 HZ CLOCK. 

? SCREEN LEFT MARGIN. 

} SCREEN RIGHT MARGIN, 

? SCREEN COLUMN [WORD) . 

? SCREEN ROW [BYTE) . 

? S: SCREEN MODE. 

? SCREEN START ADDR. 

; TEXT SCREEN SIZE. 

? WARMSTART FLAG (0 IF POWERUP). 
? DOS START VECTOR. 

? SCROLL SELECT. 

; PLAYER/PLAYFIELD PRIORITY. 

? DMA CONTROL BYTE. 

? PLAYER/MISSILE COLOR. 
f COLOR REGISTER 0 VALUE. 

; PADDLE CONTROLLER 0. 

; JOYSTICK 0. 

? PADDLE TRIGGER 0. 

; JOYSTICK TRIGGER 0, 

; LIGHTPEN HORIZONTAL POSITION. 


I LOT 
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= 

0235 

LPENV 

s 

$0235 

s 

0 291 

TXTCOL 

s 

$0291 

s 

^290 

Tx TROW 

8 

*0290 

• 

0266 

INVFLG 

s 

S02B6 

2 

0200 

VDSLST 

r 

$0200 

2 

0220 

CDTMV5 

r 

*0220 

S? 

0224 

VVBLKD 


f 0224 

2 

02FF 

ssflag 

: 

S02FF 


? PILOT ERROR CODES 


? LIGHTPEN VERTICAL POSITION. 
i SPLIT SCREEN TEXT COLUMN, 

; SPLIT SCREEN TEXT ROW, 

? INVERSE VIDEO FLAG FOR KFYBQARD. 
} DISPLAY LIST INTERPRUPT. 

; S Y STEP TIMER VALUE. 

? DEFERRED VBLANK ROUTINE. 

? START/STOP FLAG. 


0080 

NS 

r 

180 

0001 

RDYTXT 

mm 

1 

ooei 

ECPERR 

z 

1 + NS 

0061 

autuxt 

s 

1 + NS 

0002 

CNDERR 

r 

2 

0002 

NS TERR 


2 

0061 

ENDERR 

s 

1 +NS 

0002 

JNKERR 

r 

2 

0086 

IOERR 

r 

6 + NS 

0002 

I VCEPR 

r 

2 

0002 

atmerr 

z 

2 

0002 

IMPERR 

r 

2 

0089 

INSERR 

r 

9 + NS 

0067 

A6TERR 

z 

7 + NS 

0 0 0 A 

UNDERR 

z 

10 

0086 

USOERR 

z 

1 1+NS 

0002 

EXPERR 

z 

2 

ooec 

INTERR 

z 

12 + NS 

0 06 D 

LNOERR 

z 

13 + NS 


14 


0 0 OF 

OLLERR 

• 

f 


15 

16-21 

009fe 

FILERR 

z 

22 + NS 

0017 

SIGNON 

•m 

mm 

23 

0016 

TRCMES 

s 

24 

0008 

ASTMES 

8 

8 

0083 

NRCERR 

z 

3 + NS 

0 0 84 

D1VEPR 

s 

4 + N S 

0085 

scnerr 

s 

5 + NS 

0099 

CNTERR 


25 + NS 

009A 

STPMES 


26 + NS 

0096 

RENERR 

z 

27 + NS 

009C 

OVLPER 

z 

26 + NS 


= 009D 

TOMES 

= 29+NS 

= 009 E 

nchgms 

= 30+NS 

s 009F 

delmes 

= 31+NS 

= 00 AO 

DL2MES 

= DELMES+ 1 

= 0021 

SPTERR 

= 33 

= 0022 

MODERR 

= 34 

= 00A4 

FSOFER 

= 36+NS 

= 0025 

NMCERR 

= 37 

= 0026 

DC AERR 

= 36 


? ATOM 

IDENTIFIER CODES 

= 0001 

NULL 

= 1 


; "NOT A SYNTAX ERROR” FLAG. 

? READY. 

? END OF PROGRAM STORAGE REACHED DURING RUN. 
? EXIT AUTO-INPUT MODE. 

; CONDITION FIELD ERROR ( ' r ' EXPECTED). 

; GRAPHICS SUB-COMMAND NESTING ERROR, 

; USE STACK EMPTY ON END COMPAND. 

; JUNK AT END OF STATEMENT. 

/* I/O ERROR. 

; INVALID COMMAND. 

? INVALID ATOM SYNTAX. 

? IMPROPER COMMAND PARAMETER. 

; INSUFFICIENT STORAGE FOR OPERATION. 

? OPERATOR ABORT. 

; UNDEFINED LABEL OPERAND. 

; USE STACK OVERFLOW. 

; EXPRESSION ERROR. 

; INTERNAL BUG ERROR. 

? LINE n OUT OF RANGE. 

IS RESERVED. 

? OVERLENGTH INPUT LINE. 

ARE RESERVED. 

? TOO MANY IN/OUTS. 

? PUWEP-UP SIGN-ON MESSAGE. 

; TRACE PREAMBLE. 

; ASTERISKS. 

; NOT CORRECT COMMAND MODE. 

? DIVIDE BY ZERO. 

? SCREEN MODE CONFLICT. 

; CAN'T CONTINUE. 

; STOP. 

; CAN'T RENUMBER 
? OVERLAPPING RANGE. 

; " to 

? PROGRAM IS UNCHANGED, 

; "YOU ARE ABOUT TO DELETE ", 

; LINES. <CR>ARE YOU SURE?". 

; NO SPLIT SCREEN. 

; INVALID GRAPHICS MODE. 

? FLOOD STACK OVERFLOW. 

; NO MORE COLORS. 

; DOUBLE COLOR ASSIGN. 

(PRODUCED BY 'ATOM') 

? NULL ATOM. 


= 000 1 


NULL 


r 1 


? NULL ATOM. 


PILOT - 
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D1 : PILOT, 

0002 

NUM 

= 2 

; 

NUMERIC CONSTANT. 

0004 

NVAR 

= 4 

• 

9 

NUMERIC VARIABLE OR 

0008 

SVAR 

= 6 

• 

9 

STRING VARIABLE. 

0010 

USVAR 

= 16 

• 

9 

UNDEFINED STRING VAR 

0020 

TEXT 

= 32 

; 

TEXT. 

0040 

OPR 

= 64 

; 

OPERATOR. 

ooeo 

BPTR 

= 128 

• 

9 

POINTER TO BYTE. 


; GRAPHICS OPERATORS 



001 1 

FILL 

= SI 1 



0012 

FILLTO 

= $12 



0009 

DRAW 

s $09 



0 0 0 A 

DRAWTO 

r $ 0 A 



0005 

GO 

= $05 



0006 

GOTO 

= $06 




; EDGE 

DETECT STATUS 

BITS 


0006 

eleft 

= 0 

} 

LEFT EDGE. 

0004 

ERIGHT 

s 4 

• 

9 

RIGHT EDGE. 

0002 

EBOTOM 

= 2 

? 

BOTTOM EDGE. 

0001 

ETOP 

= 1 

; 

TOP EDGE. 


POINTER TO WORD. 


PILOT CONFIGURATION PARAMETERS. 


0030 

USTKSZ 

s 

48 

• 

9 

24 LEVELS IN USE STACK. 

0002 

ELEVEL 

s 

2 

i 

* OF EXPRESSION STACK () LEVELS 

000E 

ESTKSZ 

s 

4 *ELE VEL + 6 

a 

9 

EXPRESSION STACK SIZE. 

OOFE 

ACCLNG 

s 

254 

a 

9 

ACCEPT BUFFER LENGTH. 

OOFE 

texlng 

s 

254 

a 

9 

TEXT EXPRESSION BUFFER LENGTH. 

0 0 7 A 

L1NLNG 

= 

122 

? 

COMMAND/ACCEPT INPUT LINE LENGT 

27 OF 

MAXLN 

5 

Q999 

• 

9 

MAXIMUM PROGRAM LINE NUMBER. 

0004 

AUREGS 

S 

4 

i 

4 AUDIO REGISTERS. 

0007 

SCNMOD 

mm 

7 

• 

, 

4 COLOR, 160 * 96. 

0 0 0 F 

DNSIZE 

- 

15 

; 

DEVICE/FILENAME MAXIMUM LENGTH. 

0028 

TOOL 

- 

40 

• 

9 

TEXT SCREEN 4 OF COLUMNS. 

0016 

TROw 

mm 

24 

a 

9 

TEXT SCREEN 4 OF ROWS. 

0 0 0 A 

IN8FSZ 

- 

10 

a 

9 

MAXIMUM SUBCOMMAND LENGTH. 


; hardware equates 


D200 

AUDF1 

mm 

$02 0 0 

a 

9 

AUDIO 41 FREQUENCY DIVIDER. 

D20 1 

AUDC1 

mm 

AUDFl+1 

a 

9 

AUDIO 41 TYPE/VOLUME. 

02 0 F 

SKCTL 

s 

$D2 0 F 

m 

9 

SERIAL PORT CONTROL. 

D20F 

SKSTAT 

mm 

SD20F 

a 

9 

SERIAL PORT STATUS. 

D206 

audctl 

Z 

$02 0 8 

a 

9 

AUDIO CONTROL REGISTER. 

D302 

PACTL 

— 

$ D 3 0 2 

a 

9 

P 1 A CASSETTE CONTROL. 

0034 

CASSON 

r 

$34 

a 

9 

CASSETTE ON. 

003C 

CASSOF 

m • 

$ 3 C 

a 

9 

CASSETTE OFF, 

020 A 

PKYRND 

mm 

$ D 2 0 A 

a 

9 

POKEY RANDOM NUMBER. 

D01F 

CONSOL 

- 

$U0 1 F 

a 

/ 

START/SELECT/OPTION KEY READ. 

04 0 0 

DMACTL 

- 

$D4 0 0 

a 

9 

DMA CONTROL REG, 

04 0 7 

PMBASE 

- 

$D407 

} 

PLAYER/MISSILE BASE ADDRESS REGISTER. 

001 0 

GRAFP3 

- 

$0010 

} 

PLAYER 3 DATA. 

DO 1 D 

gractl 

r 

SD01D 

a 

9 

GRAPHICS CONTROL REG. 

0 0 OB 

SIZEP3 

mm 

$ D 0 0 B 

a 

9 

PLAYER 3 SIZE. 
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D1 :PILOT. 

= DO 0 0 

HPOSO 

= *0000 

• 

9 

PLAYER POSITIONS. 

= DO 1 7 

COLPF 1 

= $0017 

• 

9 

PLAYFIELD 1 COLOR. 

= D 0 1 6 

C0LPF2 

= $D0 1 8 

? 

PLAYFIELD 2 COLOR. 

= 04 0 A 

WSYNC 

= $D4 0 A 

• 

9 

WAIT FOH SYNC. 

= D40E 

NMIEN 

= SD40E 

) 

NMI ENABLE. 


; COLOR EQUATES 



= 004 2 

CRED 

= *42 



= 0084 

CBLUE 

= $84 



= 001A 

CYELLO 

= $ 1 A 



= 0001 

CBLACK 

= $01 




? MISCELLANEOUS 



= 0080 

PCUP 

= 126 

; 

PEN = 'UP'. 

= 0040 

PC DN 

= 64 

) 

PEN = 'DOWN'. 

= oooo 

lsmll 

= 0 

• 

9 

LETTERS = 'SMALL'. 

= 0001 

LMED 

= 1 

t 

LETTERS = 'MEDIUM'. 

= 0002 

LLRG 

= 2 

? 

LETTERS = 'LARGE'. 

= 0001 

EWRAP 

= 1 

• 

9 

EDGE = 'WRAP'. 

= 0002 

ehalt 

= 2 

• 

9 

EDGE s 'HALT'. 

= 0004 

EBNC 

= 4 

• 

9 

EDGE = 'BOUNCE', 

= 0008 

EFPEE 

= 8 

• 

9 

EDGE = 'FREE'. 


; algorithms require 

KOFF: 

' 0 , K 0 N s 1 , 

= 0000 

KOFF 

= 0 

• 

9 

'OFF'. 

= 0001 

KQN 

= 1 

; 

'ON'. 

= FFFF 

EON MLS 

r SFFFF 

• 

9 

END OF 'NMSBUF' LIST 

= OODF 

uc 

= $DF 

? 

LOWER -> UPPER CASE. 

= 0020 

LC 

= $20 

• 

9 

UPPER -> LOWER CASE. 

= OOFF 

UP 

= $FF 

• 

9 

FLOOD DIRECTIONS. 


= 0001 DOWN r 1 


= 0001 
= 0002 
= 0004 
= 0007 


STRTKY = 1 ; CONSOLE KEY DEFS. 

SELKEY = 2 
OPTKEY = 4 

ANYKEY = STRTKY+SELKE Y+OPTKEY 


= 0001 TXSL 
= 0002 TXML 
= 0004 GRSS 
r 0006 GRFS 


1 

2 

4 

6 


; SCREEN MODE = TEXT, SMALL LETTERS. 

; SCREEN MODE = TEXT, MEDIUM OR LARGE LETTERS. 
; SCREEN MODE = GRAPHICS# SPLIT. 

; SCREEN MODE s GRAPHICS# FULL. 



; 'NAME' TYPES • 


= 0080 

ATRSTR 

= $60 

t 'STRING' VARIABLE. 

= 0040 

ATRNUM 

= $40 

; 'NUMERIC' VARIABLE 

= 0020 

A T R 1 0 

= $20 

; 'I/O' DEVICE. 

= 0000 

ATRLIN 

= 0 

t STATEMENT 'LINE'. 
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; RESERVED COMPAND 

'TOKENS 

' AND 'USRTA9 ' SIZE. 

- 

oofe 

TKNCNT 

= SFE 

? 

COMMAND CONTINUATION 

= 

OOFF 

TKNNUL 

= IFF 

) 

NULL COMMAND. 



; ROBOT 

TURTLE DRIVER COMMANDS. 

mm 

0000 

RBOFF 

= 0 

; 

'ROBOT OFF'. 


0020 

RbON 

s 120 

• 

9 

'ROBOT ON'. 

- 

000 1 

RBEYES 

5 1 

• 

9 

'EYES'. 

z 

0002 

RBPEN 

= 2 

; 

'RPEN ' . 

z 

0003 

RBHORN 

= 3 

; 

'HORN'. 

z 

ooao 

RBFrtD 

= $80 

• 

9 

'GO ♦ '. 

z 

0081 

R69ACK 

= $81 

; 

'GO -'. 

z 

ooao 

RBLEFT 

s $00 

? 

'TURN +'. 

z 

ooai 

RBRGHT 

= 501 

} 

'TURN -'. 



; LOAD 

TYPES. 



Z 

0001 

KIOAD 

= 1 



s 

0002 

KMERGE 

= 2 



z 

0003 

KAPPND 

= 3 
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i 

# 


0000 

= 0080 
= 0080 

00*0 

s 0004 

0 084 

s 0002 

OOSb 

= 0001 

0087 

r 0001 

0088 

= 0004 

008C 

r 0004 

0090 

0090 

r 0002 

0092 

= 0001 

0093 

= OOOE 

0 0 A 1 

= 0006 

0 0 A 7 

= 0004 

0 0 AS 

= 0003 

0 0 A E 

= 0002 

0080 

= 0002 

0082 

= 0002 

0084 

= 0002 

0066 

= 0002 

0068 

= 0002 


t 

t PILOT DATA BASF. 

t 


OT Ad 
I NLN 

nxtln 

AC0LR2 
ACOLP1 
AC LN 
TELN 

TABADR 

tblbas 

EXEC 

EXPSTK 

TEMP 

TEMP2 

XTFMP 

S1L 
Si H 
S2L 
S2H 

POINT 

NUMBER 


ORG 

s * 


S 0 0 8 0 


OS a 
DS 2 
OS 1 
OS 1 
ds 4 
os a 


DS 2 


DS 1 


OS ESTKSZ 


DS 

OS 

DS 


6 

4 

3 


DS 2 
DS 2 
OS 2 
DS 2 


DS 

DS 


2 

2 


o o e a 

= 0004 

LP 

DS 4 

00*£ 

= 0004 

NP 

DS 4 

00C2 

= 0004 

DP 

DS 4 

0 0C6 

= 0004 

MP 

DS 4 

OOCA 

= 0004 

SP 

DS 4 

OOCE 

= 0004 

PP 

DS 4 

0 0 02 

= 0002 

M£MA 

DS 2 

0 0D4 

= 0002 

MfcMB 

DS 2 

00D6 

= 0002 

MSP 

DS 2 

0GD6 

= 0002 

MOP 

DS 2 

OODA 

= 0002 

MBC 

DS 2 

OUDC 

r 0002 

LINEN Q 

DS 2 

OOOE '■ 

= 0002 

LS 

DS 2 

OOEO : 

: 0 C 02 

LEND 

DS 2 

00E2 


MFDEL 


00E2 = 

' 0002 

ACC 

DS 2 

00E4 = 

0002 

IOS7 AT 

DS 2 

OOE b = 

0003 

GXNE^v 

DS 3 

O0F9 = 

0003 

GY NEW 

DS 3 

OOEC = 

00 03 

GX 

DS 3 

OOEF = 

0003 

GY 

DS 3 

0GF2 = 

0002 

ThETA 

DS 2 


; BASE ADDRESS FOR DXXXI UTILITIES & OTHERS. 


; 

} 


INPUT LINE POINTER. 

NEXT LINE POINTER (RUN MODE). 
AUTO-NUMBER COLOR REGISTER ?. 
AUTO-NUMBER COLOR REGISTER 1. 
ACCEPT LINE POINTER. 

TEXT EXPRESSION RESULT POINTEP. 


; COMMAND TABLE POINTER. 

} 0 = SYNTAX CHECK, ELSE EXECUTE (FOR X-ROUTINES). 


i EXPRESSION STACK. 

; TEMPORARY STORAGE FOR BOTTOM LEVEL ROUTINES. 
? MORE TEMPORARY STORAGF. 

; TEMPORARY STORAGE FOR X-ROUTINES. 


) DYNAMIC STORAGE AREA LIMITS. 


'ATOM' 

'ATOM' 


RETURN 

RETURN 


PARAMETER & 
PARAMETER & 


' P SF ' WORK POINTER. 
'PSTQP' ERROR U SAVE. 


STRING PACKAGE LIST POINTER. 

NAME POINTER. 

DATA POINTER. 
pattern match POINTER. 

SOURCE POINTER (BOTTOM LEVEL). 
PATTERN POINTEP (BOTTOM LEVEL). 


memory management 


ADDRESS PARAMETER, 

BYTE COUNT PARAMETER, 

SOURCE POINTER. 

DESTINATION POINTER. 

WORKING BYTE COUNT. 

STATEMENT LINE # (MUST BE IN ZERO PAGE), 

'XLIST' START LINE *, 'XGRAPH' ITERATION COUNT l 'SCNDEV . 
'XLIST' END LINE *, 'GMOVE' REGISTER SAVE & 'SCNDEV'. 

MATCH FIELD DELIMITER (',' OR 'I'. 

WORKING NUMERIC ACCUMULATOR. 

COLLEEN I/O ERROR STATUS (WORD). 

GRAPHICS NEXI POSITION ( LSB , MSB , FR AC T ION ) . 


GRAPHICS X POSITION 
GRAPHICS Y POSITION 
POLAR ANGLE. 


(LSB, MSB, FRACTION) . 
(LSB, MSB, FRACTION) . 


4 


PILOT -- H.S. 


OOF4 = 0002 
OOP© = 0002 
0 0 F 8 = 0002 

OOFA = 0002 
0 0 F C = 0002 
OOFt = 0001 
OOFF = 0001 


ATARI CAMAC Assembler Ver 
STEWART 
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FSTACK 

DS 

2 

; FLOOD STACK 

ADRESS 

DS 

2 

) FLOOD SCREEN 

traddr 

DS 

2 

; TURTLE REP. 

ALINE 

DS 

2 

; AUTO-INPUT t 

AINC 

DS 

2 

? AUTO-INPUT 

MaTCHF 

DS 

1 

; MATCH RESULT 

RUN 

DS 

1 

; o s immediat 


POINTER, R 'SFTCLR ' TEMP. 

POINTER 'SSAVE', 'SLOAD' & 'NEWDRW' 
ADDRESS FOR VBLANK PROCESS. 

RENUMBER LINE NUMBER & TEMP. 

& renumber line increment. 

CO = FALSE, ELSE MATCH FIELD A). 

E MODE, ELSE RUN MODE. 


; REDEFINES OF VARIABLES 


OOBE 

GX1 

«• 

NP 

00C1 

GY 1 

5 

GX1+3 

00C4 

GX2 

5 

GYU3 

OOC 7 

GY2 

*• 

GX2 + 3 

OOCA 

DELX 

s 

GY2 + 3 

OQCC 

DELY 

3 

DELX+2 

OOCE 

G ACC 

r 

DEL Y+2 

0002 

GTEMP 

5 

GACC+4 

OODfe 

GTEMP2 

r 

GTEMP+4 

0093 

deltar 

3 

expstk 

0095 

DELTAC 

S 

DELTAR+2 

0097 

ROWINC 

S 

DEL T AC + 2 

0098 

ROW AC 

z 

ROWINCM 

009A 

COLAC 

3 

ROWAC+2 

0 09C 

COUNTR 

- 

COL AC + 2 

009E 

ENDPT 

3 

COUNTR+2 


? redefine 

S OF 'EXI 

0093 

BLOW 

mm 

expstk 

0095 

BHIGH 

3 

EXPSTK+2 

0097 

bnum 

mm 

EXPSTK+4 

0099 

RTMP 

3 

EXPSTK+6 

009B 

R2TMP 

S 

EXPSTK + 8 


OR GRAPHICS 

USE 

END 

X 

C3 

BYTES) . 

END 

Y 

C3 

BYTES) . 

START 

X 

13 

BYTES) . 

START 

Y 

C3 

BYTES) . 

DELTA 

X 

C2 

BYTES) . 


Y 

C2 

BYTES) . 


; 

WORKING ACCUMULATOR [4 BYTES). 

? 


TEMP [4 BYTES) . 

• 

9 


TEMP [4< BYTES) . 

; 

DRAW 

DELTA Y C2) . 

• 

9 

DRAW 

DELTA X C2) . 

f 

FILL 

Y INC. tl) . 

) 

DRAW 

Y ACC. C2) . 

9 

9 

DRAW 

X ACC. C 2 ) . 

9 

9 

DRAW 

COUNTER C 2). 

9 

9 

DRAW 

E C2) . 

FOR EDIT COMMANDS. 


? LOW BRACKET ADDRESS. 
f HIGH. 

; U OF LINES IN RANGE. 
f RENUMBER TEMP, 

? 


0100 

= 0500 


ORG 

% 0500 

0500 

ooco 

USRTAB 

Dw 

0 


0502 

0 U 0 o 

RBVECT 

DW 

0 


0504 

= 0002 

IOEDIS 

DS 

2 


0506 

= 0001 

EXECF 

DS 

1 

? 

0507 

= 0003 

X JUMP 

DS 

3 


05 0 A 

= 0003 

G JUMP 

DS 

3 


050D 

= 0003 

SJUMP 

DS 

3 


0510 

= 0001 

CTAdAT 

DS 

1 

; 

0511 

= 000 1 

DIGIT 

DS 

1 


0512 

= 0001 

SAVYR 

DS 

1 

? 

0513 

= 0001 

PEN 

DS 

1 

; 

0514 

= 0001 

grflag 

DS 

1 

; 

0515 

= oooa 

AUDIOR 

DS 

AUREGSt AlRF.GS 

05 1 D 

= oooi 

AUX 1 

DS 

1 

; 


; USER EXTENDABLE COMMAND TABLE. 

; CMSBYTE r 0 IF UNUSED). 

? ADDRESS OF ROBOT TURTLE DRIVER. 

; CMSBYTE s o IF UNUSED). 

? I/O ERROR STOP DISABLE. 

; EXTRA BYTE TO PROTECT AGAINST WORD POKE. 

CONDITION RESULT CO = NO EXECUTE, ELSE EXECUTE). 
? FIRST BYTE = JMP COMMAND ( X-ROUT I NES ) . 

,* FIRST BYTE = JMP COMMAND ( G-RQUTI NES ) . 

? FIRST BYTE = JMP COMMAND ('SOP'). 

'ATTMBYTE' BYTE FROM 'CMATCH'. 


'MLOOP' SAVE Y REGISTFR. 
GRAPHICS PEN SELECT. 

graphics mode FLAG COsNOT 
; audio variable pointers. 

I/O AUX 1 OVERRIDE BYTE. 


TEMP. 


GRAPHICS, 


ELSE GRAPHICS). 
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i 


osie 

= 000 1 

AUX2 

DS 1 

i 081 F 

= 0001 


DS 1 

0820 

= 0010 

OPNBUF 

DS DNSIZE+1 

0530 

= 0002 

CDEST 

DS 2 

% 0832 

= 0001 

LOADFG 

DS 1 

0533 

= 0002 

matchx 

DS 2 

0838 

= 0001 

TRACE 

DS 1 

f 0536 

= 000 1 

AUTOIN 

DS 1 

0537 

= 0001 

GSMODE 

DS 1 

• 0538 

= 0 0 0 A 

INLNBF 

DS IN8FSZ 

0542 

= 0001 

namlng 

DS 1 

0543 

= 0001 

NOCONT 

DS 1 

0 0544 

= 0001 

CONKEY 

DS 1 

0545 

= 0001 

SGLSTP 

DS 1 

054b 

= 0001 

axflag 

DS 1 

• 0547 

= 0001 

akflag 

DS 1 

0546 

= 0001 

XXXX 

DS 1 

0549 

= 0004 

GNUMB 

DS 4 

H 054D 

= 000 1 

USTKP 

DS 1 

054E 

= 0001 

estkf 

DS 1 

054F 

= 0001 

TRTLON 

DS 1 

{ 0550 

= 0001 

trtsns 

DS 1 

0851 

= 0001 

lettrsz DS 1 

0852 

= 000 1 

SPLTSC 

DS 1 

# 

= 0 0 0 A 

NMBFSZ 

= 5*2 

0853 

= 0 0 0 A 

N^ SBF 

DS NMBFSZ 

0550 

= 000 1 

SPEED 

DS 1 

§ 055E 

= 0001 

EDGRUL 

DS 1 

055F 

r 0001 

TRYPOS 

DS 1 

0860 

= 0001 

ORIENT 

DS 1 

0561 

= 0002 

XC 

DS 2 

0563 

- 0002 

YC 

DS 2 

0565 

= 0001 

cstate 

DS 1 

0566 

= 0 001 

atrtyp 

DS 1 

0567 

= 0001 

DMPTYP 

DS 1 

0566 : 

= 0 001 

tkntyp 

DS 1 

0569 : 

= 0001 

lstkn 

DS 1 

056 A = 

: COO 1 

TKNQFF 

DS 1 

056B = 0030 

USESTK 

OS USTKSZ 

0596 = 

0O01 

FCOLOR 

DS 1 

059C = 

0001 

FLDCLR 

DS 1 

059D = 

0001 

M SKT^P 

DS 1 

059 E = 

0001 

ROWFLG 

DS 1 

059 F = 

0001 

COLFLG 

DS 1 

05 A 0 = 

0001 

SAVROW 

DS 1 

05 A 1 = 

0002 

SAVCOL 

DS 2 

05 A3 = 

0 002 

LFTCCL 

DS 2 

05A8 = 

0002 

NEWLC 

DS 2 

05 A 7 = 

0002 

RGTCOL 

DS 2 

05A9 = 

0002 

NE WHC 

DS 2 

05 A B = 

OOOi 

MAXROW 

DS 1 

05 AC = 

0002 

MAXCOL 

CS 2 

05 AE = 

0002 

mlttmp 

DS 2 

05*0 = 

0001 

SHF AM T 

DS 1 

0581 = ! 

0001 

DM ASK 1 

DS 1 

0582 = i 

oooi 

finefg i 

DS 1 


I/O AUX2 OVERRIDE BYTF. 

'OPNBUF'-l USED BY 'SCNDEV'. 

DEVICE NAVE SUFFER FOR OPEN. 

'CHOT' DESTINATION IDENTIFIER & SAVE BYTE, 

0 IF NOT LOADING, ELSF LOADING. 

'XMATCH' FIELD INDEX VALUFS. 

RUN-TIME TRACE FLAG (TRACE IF <> 0). 
AUTO-INPUT FLAG (ACTIVE IF <> 0). 

GRAPHICS SCREEN MODE. 

TEMP STORAGE FOR SOURCE TO MATCH. 

'SAVIT' & 'RESIT'. 

? 0 IF CONTINUE O.K. 

; 1 aSTART , 2=SELECT, 4=0PTI0N. 

? SINGLE STEP IF .NE. 0, 

; 1 IF ACCEPT LITERAL. 

? I IF ACCEPT KEY. 

? 'SCNDEV' & 'PSTGP' USE. 

? GRAPHICS WORKING STORAGE & "XACCPT' 
? USE STACK POINTER (0 - N*20. 

? EXPRESSION STACK POINTER. 

; 0 = V ISIBLE TURTLE OFF, ELSE ON. 

? VISIBLE TURTLE SENSOR STATE. 

? TEXT LETTER SIZE: 0,1 OR 2. 

; OsFULL GRAPHICS, S10 = SPLIT SCREEN 
? 'MNYNMS' BUFFER SIZE. 

} SPEED CONTROL. 

; TURTLE EDGE RULE. 

; VISIBLE TURTLE Y POSITION. 

? VISIBLE TURTLE ORIENTATION. 

; SCREEN CENTER X. 

; SCREEN CENTER Y. 

} CONSGLE KEY READ STATE. 

; 'NAME' ATTRIBUTE FOR 'IFIND' • 

? ATTRIBUTE FOR DUMP CODE. 

? TOKENIZED COMMAND 

} TOKEN FROM PREVIOUS STATEMENT FOR 
? OFFSET PAST COMMAND, 

; USE STACK. 

? 'FLOOD' COLOR 
; FIELD COLOR TO BE FLOODED. 

; TEMP MASKED DATA. 

; ROW FLAG. 

? COLUMN FLAG. 

? SAVED STARTING ROW. 

? SAVED STARTING COLUMN. 

? LEFT COLUMN VALUE. 

? NEW LEFT COLUMN. 

? RIGHT COLUMN VALUE. 

; NEW RIGHT COLUMN, 

; MAXIMUM ROW VALUE. 

; MAXIMUM COLUMN VALUE, 

; MULTIPLY TEMP. 

; shift amount. 

? 0 s COARSE SCROLL r -1 = PINE. 


TEMPORARY. 


'j CONTINUATION' 


PILOT 
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05B3 

s 

0002 

CETtMP 

08 

2 

0585 

m 

0001 

LFCOL 

DS 

1 

0586 

r 

0001 

»GCOL 

08 

1 

0587 

c 

0001 

PENNUM 

08 

1 

0596 

S 

0001 

PENCOL 

OS 

1 

05P9 

z 

0001 

ncolrs 

OS 

1 

058 A 

s 

0001 

NXTCLR 

08 

1 

0586 



PNCL«S 



0596 

s 

0001 

PAKCLR 

08 

1 

05RC 

s 

0006 


08 

8 

05C« 

s 

0001 

TRTCCL 

OS 

l 

05C5 

s 

0001 

RBTUN 

08 

1 

05C6 

s 

0001 

rbtsns 

OS 

1 

05C '/ 

8 

0001 

RfcTCMD 

08 

1 

05C8 

8 

0002 

rbtprm 

08 

2 

05C A 

S 

0001 

INDENT 

r> 5 

1 

05C6 

8 

0001 

SCTEMP 

■ 8 

1 

05CC 

8 

0001 

PRTtMp 

OS 

1 

05CU 

8 

0002 

WALLS 

08 

2 

05CF 

8 

0002 

GCOL 

DS 

2 

0501 

S 

0001 

GROw 

r b 

1 

0502 

8 

0002 

GANGLE 

DS 

2 

0508 

8 

0001 

GROPR 

os 

l 

0505 

8 

0001 

HlTwLL 

08 

1 

0506 

8 

0001 

HITEOG 

08 

1 

0507 

8 

0001 

haltfg 

cs 

1 

0508 

8 

0001 

grtemp 

08 

1 

0509 

8 

0001 

tuflfg 

OS 

1 


8 

0001 

L1TMAT 

08 

1 

050b 

8 

0001 

NOPLOT 

Ca 

1 

05OC 

8 

0002 

OS I S A V 

OS 

2 

050E 

8 

0002 

OS VS A V 

08 

2 

05E0 

8 

0001 

DMA3AV 

OS 

1 


8 

0 1 1 F 

SPARES 

8 

T700-* 


05F1 

8 

rcoo 


OwG 

tbCOO 

ecoo 

8 

OOFF 

Ttxeup 

OS 

T E X L N G ♦ l 

BCFF 

8 

0001 


OS 

1 

BOOO 

8 

007b 

COM0UF 

OS 

LlNLNGM 

0076 

8 

0100 

ACCbLF 

OS 

256 

9E7B 

8 

0101 

NAMQUF 

08 

257 
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'COMPRS V 'EXP AND' TEMPORARY. 

Ti LEFT MOST CCLllPN. 

T: RIGHT MOST COLUMN. 

PEN NUMBER. 

PEN COLOR. 

NUMBER OR COLORS ALLOWED. 

NEXT AVAILABLE COLOR SLOT. 

PEN COLORS. 

PACKGROUNO CCLOR. 
foreground COLORS. 

TURTLE COLOR. 

OaROBOT TjRTLE OFF, ELSE ON. 

ROBOT SENSOR STATE. 

internal robct ccmmano. 

INTERNAL ROBCT PARAMETER. 

AUTO INDENT. 

'SETCL«' TEMP. 

# PRCLNM # TEMP. 

WALL SELECTION DATA. 

turtle column position, 
turtle ROW position, 
turtle theta. 

GRAPHICS OPERATION type. 

0 8 NO WAUL nit, else WALL HIT. 

0 « NO EDGE HIT, ELSE EDGE HIT. 
NON-ZERO « halt AT EDGE. 

# GREAD # TEMP, 

TURTLE PARAMETER UPDATE INTERLOCK. 
NON-ZERO • LITERAL MATCH. 

NON-ZERO * OONM PUT POINT. 

VALUE OF ORIGINAL 'DOSINI'. 

VALUE OF ORIGINAL 'DC3VEC'. 

# C V AC T # SAVE VALUE FOR TV ON/CFF. 
ft#* THIS HAD BETTER BE POSITIVE *** 


I 

I 

» 

I 

l 


TEXT EXPRESSION BUFFER, 

ONE EXTRA LEADING BLASn FOR AUTO-IN. 

command input buffer. 

ACCEPT buFRER. 

STRING NAME BUFFER. 
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? NOTE: THE USE OF THE TERM # (BRA)' IN a COMMENT INDICATES THAT THE 
? PARTICULAR BRANCH INSTRUCTIONS USED WILL ALWAYS BRANCH IN THE 
; PARTICULAR CIRCUMSTANCES, THE BRANCH IS SUPPOSED TO BE A TWO BYTE 
; JUMP. 

; 


? POWER-UP ROUTINE ANO INITIALIZATION 


PF7C 

= 7700 


ORG $7700 



7700 


PILLOW 


• 

9 

PILOT LOW ADDRESS 

7700 


TPBUFF 


• 

9 



= 77 0C 

TVBUFF 

= TPBUFF+12 

• 

9 

VISIBLE REGION, 


= 7705 

TRBUFF 

= TVBUFF-7 

9 

9 

INCLUDES UNDERFLOW. 

7700 

= 7800 


ORG TPBUFF+256 

9 

9 

TURTLE REP. BUFFER. 


ATARI CA^AC Assembler Ver 1 . 0 A 
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= 0000 


IF 

DOS 

- 



LD A 

AO 

- 



STA 

COLDST 

- 



jmp 

MLE 




FNDIF 


7600 



PROC 


76 0 0 

A508 

PILINI 

LD A 

WARMS! 

7602 

DO 1 5 A 76 1 9 


PNE 

J P I 0? 0 

7809 

A50C 


LD A 

DOSINI 

7606 

80DC05 


STA 

DSISAV 

7809 

A50D 


LDA 

DOSINI+1 

760B 

6Dr-D05 


STA 

DSISAV+1 

760E 

A900 


LDA 

A LOW PILINI 

7810 

850C 


STA 

DOSINI 

7812 

A976 


LDA 

* HIGH PILINI 

78 1 a 

85 0 D 


STA 

DOSINI+1 


= 0000 


IF 

DOS 

- 



LDA 

DUSVEC 

- 



STA 

DSVSAV 

- 



LDA 

DOSVEC+1 

- 



STA 

DSVSAV+1 




ENDIF 


7816 

4C1C78 


JMP 

J P I 030 

7819 

202576 

• P I 02 0 

JSR 

GODOS 

78 1 C 

A9C3 

: P I o 3 o 

LDA 

* LCW MLE 

78 1 E 

65 0 A 


STA 

DOSVEC 

7620 

A9 78 


LDA 

A HIGH MLE 

7622 

850B 


STA 

CGSVEC+1 

782 A 

60 


RTS 


7825 

6CDC05 

GODOS 

JMP 

(DSISAV) 


Page 12 
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? CLEAR COLOSTART FLAG (SEE 'XDOS'). 
; RETURN FROM DOS. 

? WARM START? 

? YES. 

? SAVE ORIGINAL 'DOSINI'. 


; PLUG IN NEW 'DOSINI'. 


; SAVE ORIGINAL 'DOSVEC'. 


; PERFORM DOS INIT. 

? CHANGE 'DOSVEC ' FOR PILOT ENTRY. 


r 


2ND HALF OF J5R (DSISAV), 


PllCT 


-- h . b . 


ATARI CAMAC Assembler Ver 
STEMRT 


1 • 0 A Page 1 3 

01 * P I LOT . 


782b 


PROC 


€ 

€ 

€ 




7828 A906 

INIT LOA 

*E PLTC-IOVBAS 

; 

782A 803005 

STA 

COEST 


782D A50b 

LOA 

WAPPST 

; 

782F 0037 A 7868 

BNE 

: I N 1 1 5 

; 

7831 A280 

LDX 

#$80 

; 

7833 A90 0 

LOA 

#0 

7835 9500 

7637 E 6 

:INI10 STA 

INX 

0, X 


7838 DQPB *7835 

BNE 

! 1 N 1 1 0 

) 

783A A 94 C 

LOA 

# $ 4 C 

; 

763C 800705 

STA 

XJUPP+O 

78 3 F 600 A 05 

STA 

GJUNP+O 


7842 600005 

STA 

SJUPP+O 


7645 A 9 1 6 

LD A 

#$16 

• 

f 

7647 8586 

STA 

AC0LR2 


7649 A 9 0 0 

LD A 

#$00 

• 

f 

764b 8587 

STA 

AC0LR1 


= 0000 

IF 

FALSE 



LD A 

# LCW FRGEND 

; 

• 

STA 

PE w LO 


• 

LDA 

# HIGH PRGENO 



STA 

ENPIF 

PE^LO+1 


7640 ADE702 

LDA 

PEPLO 

• 

9 

7650 SSAt 

STA 

S1L 

9 

9 

7852 A DE803 

LDA 

VEMLO+1 


7655 65 A F 

STA 

S1L+1 


7657 20C087 

JSR 

CLRPRG 



785a 

7850 

765F 


AUEbOa 

6564 

65B2 


IDA 

STA 

STA 


N' E M H 1 

S2H 

S2L 


; establish # chot # destination as # e:' 


; CLEAR UPPER HALF OF PAGE ZERO. 


; SET 'MEMLO' AFTER END OF PROGRAM. 


; ALSO FOR STRING STORAGE AREA, 


7861 

AUEtOa 

LDA 

NEMHI+1 



7664 

8565 

STA 

S2H+1 



78 66 

8563 

STA 

S2L + 1 



7666 

A2F4 

: INI 15 LDX 

# HIGH FILVBL 

• 

/ 

INTERCEPT VBLANKS, 

786 A 

A 0 9 1 

LDY 

# L C In PILVBL 



766 C 

A 90 7 

LDA 

PI 

• 

r 

VVBLKD, 

786E 

2C5CE4 

JSR 

SETVBV 



7671 

A 90 0 

LDA 

#0 

• 

ZERO ... 

7873 

8 D 3 2 0 5 

STA 

LCADFG 

• 

f 

, , . LOAD FLAG . . . 

7676 

8D3505 

STA 

TRACE 

; 

... TRACE FLAG ... 

7679 

8D3b 05 

STA 

AUTCIN 

; 

... AUTO-INPUT FLAG ... 

787C 

8 0 1 D 0 5 

STA 

AUX1 

• 

... I/O AUX1 ... 

767F 

8D1E05 

STA 

AUX2 

• 

r 

... I/O AUX2 ... 

7682 

65FE 

STA 

RATCHF 

• 

... & NATCH RESULT. 

7684 

6ol005 

STA 

ctabat 

• 

... LAST CONN AND ATTRIBUTES. 
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7887 

8DC505 

STA 

RBTGN 

• 

9 

... ROBOT TURTLE. 

788A 

805005 

STA 

SPEED 

• 

9 

FULL SPEED. 

7880 

8D6205 

STA 

FINEFG 

• 

9 

COARSE SCROLLING. 

789 0 

8DE005 

STA 

DMAS A V 



7893 

A976 

LOA 

n LOW ACCBUF 

? 

SET ACCEPT BUFFER POINTER. 

7895 

8588 

STA 

A C LN 



7897 

A9PD 

LD A 

A HIGH ACCBUF 



7899 

0589 

STA 

ACLNtl 



7898 

20729F 

JSR 

NULACC 

? 

SET ACCEPT BUFFER TO NULL. 

769E 

A90 0 

L D A 

A LOW TEXBUF 

? 

SETUP TEXT EXPRESSION BUFFER POINTER, 

78 A 0 

658C 

STA 

TELN 



78A2 

A9BC 

LD A 

P HIGH TEXBUF 



78 A 4 

65PD 

STA 

TELN' + l 



78 Ab 

A920 

LDA 

#' ' 

• 

r 

LEADING BLANK FOR AUTO-IN, 

76A8 

0OFFBC 

STA 

COMBUF-1 



78 AB 

20E1A5 

JSR 

TRTINI 

• 

f 

INITIALIZE VISIBLE TURTLE STUFF, 

7b AE 

2050P3 

JSR 

PBINIT 

. 

t 

... ROBOT TURTLE ('OFF' IN 'MLE ' ) . 

76H1 

2 0 9 £ 9 8 

JSR 

REMDEV 

• 

f 

REMOVE DEVICE ASSIGNMENTS FROM STRING LIST. 

7864 

20F494 

JSP 

TXOPEN 

• 

t 

OPEN E: & RECAPTURE GRAPHICS REGION IF NECESSARY. 

7867 

A 508 

LDA 

WARM ST 

• 

r 

inarmstart? 

7809 

D005 A 78C 0 

BME 

; INI30 

« 

t 

YES. 

78BB 

A917 

LDA 

FSIGNON 

• 

t 

GENERATE sign-on message. 

78BD 

20FFB4 

JSR 

MESSOT 



76C0 

4C2CB5 

: I N 1 30 JMP 

RDYMES 

m 

* 

GENERATE “READY" MESSAGE & RETURN, 
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78C3 


PROC 


I 

I 




; 

; 

main LOUP FOR 

PILOT INTERP 



i 

; 

t 

POKER-UP ANO 

RESET ENTRY. 

7&C3 

A2FF 

9 

mle lox 

AS F P 

76C5 

9 A 


TXS 


7SC6 

A970 


LOA 

A HIGH $7000 

7aC6 

856 A 


STA 

RAMTOP 

78CA 

A 9 0 0 


LUA 

AO 

78CC 

8C1D05 


STA 

A U X 1 

7SCF 

80 1 E 05 


STA 

AUX2 

7802 

80 1 A 05 


STA 

GRFL AG 

7805 

80S 1 05 


STA 

LETTRSZ 

7808 

8082 0 5 


STA 

FINEPG 

7808 

208E96 


JSR 

EOPEN 

780£ 

8EA305 


STX 

NOCCNT 

78E i 

202878 


JSR 

IN IT 


; INITIALIZE STACK POINTER. 

? NEW TOP OF MEMORY. 

; CLEAR ESSENTIALS FOR EOPEN CALL. 


7 MOV/E SCREEN TOWN. 

; NO CONTINUATION. 

; INITIALIZE REST OF ENVIRONMENT 


; *** EXTERNAL ENTRY POINT *** 


78 E A 

A93C 

mlres 

LDA 

ACASSCF 

7 CASSETTE MOTOR OFF 

78E6 

8D0^D3 


STA 

PACTL 



78E9 

20BA9F 


JSR 

AUDCLR 

7 CLEAR AUDIO REGISTERS 

78EC 

A 9 0 0 

MLRES2 

LUA 

AO 

RESET ... 


78EE 

85FF 


STA 

RUN 

... RUN FLAG ... 


7 8F0 

8DA505 


STA 

SGLSTP 

... SINGLE STEP . 

• • 

78F3 

8DFt0i 


STA 

0 S p F L G 

... DISPLAY FLAG 

• • • 

78*6 

PUB602 


STA 

INVFLG 

... INVERT VIDEO 

FLAG .. 

78F9 

80040 5 


STA 

IOEDIS 

... & ERROR STOP 

DISABLE 

76FC 

A9E 1 


LD A 

A LOW X TYPE ; MAKE COMMAND 

= # T:'. 

76F t 

8D0805 


STA 

XJUMP+1 



7901 

A 983 


LUA 

U HIGH XTYPE 



79 03 

SD0905 


STA 

XJUMP+2 



7906 

600605 


STA 

execf ; 

CONDITION FLAG s 

TRUE. 


f *** external ENTRY point *** 


7909 

A 9 0 0 

MILOAD 

LD A 

A LOW COMBUF 

• 

9 

RE-ESTABLISH CONSOLE 

BUFFER INPUT. 

7906 

8580 


STA 

INLN 




7 900 

A 9BD 


LOA 

A HIGH COMBUF 




790 P 

8561 


STA 

I N L N + 1 




791 1 

200 07 B 

MLOUP 

JSR 

GETCOM 

• 

9 

GET A COMMAND INFUT, 


7914 

D07A *7990 


PNE 

; ML 090 

• 

9 

ERROR (SKIP BRANCH). 




; NOTES 

the y 

REGISTER IS ASSUMED 

TO CONTAIN THE INDEX 

TO # INLN # 


f 

; 


TnPQUGHOUT THIS ROUTINE. ALL CALLED ROUTINES WILL BE 
RESPONSIBLE POR MAINTAINING ITS INTEGRITY. 
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79 1 o AD3205 
7919 DOOC A 7927 

7918 A5FF 
7910 0038 A 795A 

79 1 F AL)3o05 
7922 F003 A 7927 

7924 AC9079 

7927 ADA A 05 
792 A 2901 
792C F 0 1 7 A 7945 

792E AD4405 

7931 29FE 
7933 804405 

7936 A D 4 3 0 5 
7939 F u 0 3 A 793E 

7936 201185 

793E CE4505 

7941 C6FF 
7993 OOCC A 791 1 

7945 20D39E 

7948 FQ07 A 795 1 

794 A 8180 

7 9 AC 20839E 
794R 905E A 79 A F 


: M L 0 2 0 


LOA 

BNE 

LOA 

BNE 

LD A 
BEQ 

JMP 

LDA 

AND 

BEQ 

LOA 

AND 

STA 

LOA 

BEQ 

JSR 


JML025 DEC 
DEC 
8NE 

:ML030 JSR 
BEQ 

LOA 

JSR 

8CC 


LOAQFG 

• 

9 

LOADING? 

JML020 

• 

9 

YES. 

RUN 

• 

9 

RUN MODE? 

: ML070 

• 

9 

YES. 

AUTOIN 

9 

9 

AUTO-INPUT MODE? 

: ML020 

; 

NO. 

: ML 100 

• 

9 

YES. 

CONKEY 

9 

9 

CONSOLE KEY PRESSED? 

ASTRTKY 

9 

9 

START KEY? 

: ML030 

9 

9 

NO. 

CONKEY 

#SFF-STRTKY 

CONKEY 

} 

RESET THE KEY FLAG. 

NOCONT 

• 

9 

CAN WE CONTINUE? 

:ML025 

9 

9 

YES. 

XRN010 

• 

9 

NO -- START AT BEGINNING. 

SGLSTP 

9 

9 

YES -- SET FLAG. 

RUN 

9 

9 

SET TO RUN MODE. 

MLOCP 

• 

9 

(BRA). 

SCNLBL 

9 

9 

SCAN OVER LABEL IF PRESENT 

: ML040 

9 

9 

YES -- SAW A VALID LABEL. 

(INLN) f Y 

9 

9 

CHECK FOR LINE NUMBER. 

CNUMBP 

9 

9 

NUMBERED LINE? 

:ML1 10 

9 

9 

YES -- EDIT MODE. 


? UN-NliMBERED LINE -- IMMEDIATE EXECUTION 


7951 

A24Q 

SML040 

LDX 

fctimm 

• 

9 

7953 

20 A676 


JSR 

SYCMNO 

9 

9 

7956 

D036 A 799Q 


BNE 

: ML 09 0 

9 

9 

7958 

F033 A 790Q 


BEQ 

SML085 

; 



? LINE 

FROM 

STORAGE -- 'RUN' 

MODE 

795A 

404405 

SML070 

LDA 

CONKEY 

• 

f 

795D 

2904 


AND 

AOPTKEY 

• 

9 

795F 

F01G A 797 1 


BEQ 

:M,L0 80 

9 

9 

7961 

AD3505 


LDA 

TRACE 

• 

§ 

7964 

4901 


FOR 

#KON 

w 

7966 

8D3505 


STA 

TRACE 


7969 

AD4405 


LDA 

CONKEY 

9 

p 

796C 

29F6 


AND 

4$ff-QPTKEY 


7966 

804405 


STA 

CONKEY 



IMMEDIATE MODE -- SYNTAX CHECK CODE. 
ERROR -- DON'T EXECUTE THE COMMAND. 

; (BRA). 


CONSOLE KEY PRESSED? 
OPTION KEY? 

NO. 

; YES -- TOGGLE THE TRACE 


? RESET THE KEY FLAG. 






Hi ■ 
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7971 

AD3505 

: ML 0 8 0 

LDA 

Trace 

? 

TRACE EXECUTION? 

7974 

004505 


ORA 

SGLSTP 



7977 

PO 1 4 A 7980 


BEG) 

: ML085 

; 

NO. 

7979 

206896 


JSR 

TSTMOD 

r 

CHECK SCREEN MODE. 

797C 

2905 


AND 

4TXSL+GRSS 

■ 

9 

TEXT OUPUT O.K.? 

797E 

D003 A 7983 


BNE 

SML082 

• 

9 

YES. 

7980 

20 F 494 


JSR 

TXOPEN 

• 

9 

NO -- OPEN TEXT SCREEN. 

7983 

A 9 1 8 

SML082 

LDA 

3TRCMES 

f 

PRINT TRACE LINE HEADER. 

7985 

20FF84 


JSR 

MESSOT 



7986 

A 000 


LDY 

# I N L N - D T A Q 

• 

9 

PRINT SOURCE STATEMENT. 

798 A 

20229F 


JSR 

PSF 





; COMMON 

1 CODE 

' IMMED I ATE ' AND 

'RUN 

r 

7980 

20E278 

JML085 

JSR 

EXCNND 

• 

9 

EXECUTE THE COMMAND. 

79*0 

DG6E A 7A 0 0 

: MLQ90 

BNE 

: ML 155 

9 

9 

RUN-TIME ERROR (SKIP BRANCH 


7992 

AD4505 


LDA 

SGLSTP 

; 

SINGLE STEP? 

7995 

F 0 0 3 A 799A 


BEG 

: ML 095 

« 

f 

NO. 

7997 

4CEC76 


JMP 

MLRES2 

• 

f 

YES -- RETURN TO IMMEDIATE MODE. 

799A 

4C1 1 79 

! ML 095 

JMP 

MLOCP 

• 

9 

GET NEXT COMMAND. 



; AUTO 1 

-INPUT MODE -- SUPPLY THE LINE NUMiBER AND ONE EXTRA LEADING BLANK. 

79 9 D 

A5FA 

S ML 100 

LDA 

ALINE 

m 

9 

SUPPLY THE LINE NUMBER. 

799p 

6588 


STA 

NUMBER 



79 A 1 

A 5F b 


LDA 

ALINE+1 



79 A 3 

8569 


STA 

NUMBER’*’ 1 



79 A 5 

A20 0 


LDX 

ainln-dtap 



79 A 7 

20129D 


JSR 

DDCRI 

• 

9 

ONE EXTRA LEADING BLANK. 

79A A 

E683 


INC 

INLN+3 



794 C 

4C8279 


JMP 

SML1 12 





; numbered line 

INPUT -- EDIT 

MODE 

• 

79AF 206E61 

: ML 1 1 0 

JSR 

ATOM 

; 

CONVERT LINE NUMBER TO BINARY IN 'NUMBER ' . 

7982 6482 

SML1 12 

STY 

I NLN *2 

; 

SAVE INPUT LINE POINTER. 


4 
4 
t 

% 

l 


% 





A238 

AD3205 

C903 

0005 A 79C2 
AO 7 A 

?0«59A 

2o6B94 
P05F A 7A2e> 


1 Ml 1 20 


LDX 

IDA 

BNE 

IDY 

JSR 

JSR 

PCS 


•NUMBER-DTAB 
I OADEG 
ffK APPND 

:^nao 

aaline-ctab 

CMOVI 

C"Kt.N 

: *L20o 


; SUPPLY LINE NUMBER I F 'APPEND'. 


; OECK LINE A FOR RANGE. 
; OUT OF RANGE. 


PILOT 
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79C 7 

A 9 0 0 


LDA 

a 0 

79C9 

8 D 4 0 0 5 


STA 

USTKP 

79CC 

A9FF 


LDA 

A$FF 

79CE 

804305 


STA 

NOCONT 

7901 

A5B9 


LDA 

NUMBER+1 

7903 

85PC 


STA 

UNENO 

7 905 

A5B6 


LDA 

NUMBER 

79D 7 

85DD 


STA 

L1NEN0+1 

7909 

A482 


LUY 

TNLN+2 

79DB 

20D39E 


JSR 

SCNLBL 

79DE 

F 0 1 9 A 79F9 


BEG 

t ML 1 50 

79E0 

B 1 80 


LDA 

(INLN),Y 

79P2 

C99B 


CMP 

AECL 

79E4 

DO 1 3 A 79F9 


PNE 

: ML 150 

79Eo 

AD3605 


LDA 

AUTCIN 

79E9 

FO 08 A 79F 3 


BED 

:ML140 

79EB 

2 0 1 6 7 A 


JSR 

LVAUTO 

79EE 

A 98 1 


LDA 

AaUTOXT 

79 F 0 

4CC57A 


JMP 

! M L 9 8 5 

79 F 3 

20E77A 

: ML 140 

JSR 

LDELET 

79 Ft> 

4C1 179 

: ML 145 

JMP 

MLOCP 

79F9 

A 482 

: M L 1 5 0 

LDY 

INLN+2 

79F6 

A220 


LDX 

ACTRUN 

79FD 

2CAB76 


JSR 

SYCMND 

7 A 0 0 

DO 38 A 7 A3A 

! M L 1 5 5 

BNE 

: ML900 

7A02 

20CE7A 


JSR 

LINSRT 

7A05 

D01F A 7 A26 


BNE 

; ML2 0 0 

7 A 0 7 

A27A 


LDX 

aaline-dtab 

7A09 

A07C 


LDY 

A A I NC -DT AB 

7 A 0 B 

2Q329C 


JSR 

DADDI 

7A0E 

AD3605 


LDA 

AUTOIN 

7A11 

F0E3 A 79F6 


BEQ 

: ML 1 45 

7 A 1 3 

4C0979 


JMP 

MLLOAD 

7 A 1 6 

A200 

LVAUTO 

LDX 

AO 

7 A 1 8 

8E3605 


STX 

AUTCIN 

7 A 1 B 

A284 


LDX 

ACBLUE 

7 A 1 D 

8ECb02 


STX 

COLCRO+2 

7 A2 0 

A21 A 


LDX 

ACYELLO 

7 A22 

8tC502 


STX 

COLORO+1 

7A25 

60 


RTS 
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; CLEAR USE STACK ON INSERT/DELETE, 


; ALTER PROGRAM -- NO CONTINUATION, 


? SAVE LINE NUMBER ... 

? ... IN INVERTED FORM (STRING NAME). 


? RESTORE INPUT LINE INDEX. 

? SKIP OVER LABEL IF PRESENT. 

? LABEL FOUND. 

? CHECK FOR NULL STATEMENT. 

; NON-NULL -- STATEMENT IS TO BE ENTERED. 

; AUTO-INPUT MODE? 

J NO. 

; LEAVE AUTO-INPUT MODE. 

I GENERATE MESSAGE AS WE LEAVE. 


? YES -- DELETE NUMBERED LINE. 


} RESTORE INPUT LINE POINTER. 

; SETUP FOR RUM MODE COMMANDS. 

} SYNTAX CHECK THE STATEMENT. 

? SYNTAX ERROR (SKIP BRANCH POINT). 

? INSERT THE NEW LINE (COMMAND 'TOKENI ZED ' ) . 
; NO ROOM FOR NEW LINE. 

} INCREMENT AUTO-INPUT LINE #. 

; (EVEN IF NOT IN AUTO-INPUT MODE). 


; AUTO-INPUT MODE? 

J NO -- GET NEXT COMMAND. 

t YES -- ADJUST 'INLN' FOR 'LEADING BLANK'. 
; RESET AUTO-INPUT MODE. 


? RESTORE NORMAL SCREEN COLOR. 


PILOT 
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; NO ROO V FOR LINE CR LINE # OUT OF RANGE. 


7A?b 

A © 

:ML200 

PHA 


• 

9 

SAVE ERROR CODE. 

7a27 

A 0 3 2 0 5 


LO A 

LUADFG 

• 

9 

LO AO IN PROGRESS? 

7 a2a 

R 0 0 A A 7 A 36 


9EQ 

! VL2 1 0 

• 

9 

NO. 

7A2C 

A 9 0 0 


LDA 

no 

• 

ABORT L 0 A 0 , 

7a?e 

8D3205 


STA 

LUADFG 



7 A3 1 

A230 


LDX 

A 1 0 C 8 3 

; 

CLOSE FILE. 

7A33 

203F97 


JSR 

DCLCSE 



7 A 3b 

68 

SML210 

PLA 


• 

RESTORE ERROR CODE. 

7 A 3 7 

2 0 t b7 A 


JSR 

lvaltc 

? 

LEAVE AUTO-INPUT MODE R, FALL INTO 'PSTOP 
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? SYNTAX/RUN-TIME error processor 
? *** EXTERNAL ENTRY POINT *** 




? 

A = 

FRROR CODE. 





; 

Y s 

INDEX TC ERROR IN 

STATEMENT. 

7 A 3 A 


SML900 





7 A3 A 

A2FF 

PSTOP 

LDX 

#$FF 

• 

9 

RE-INIT STACK POINTER. 

7A3C 

9 A 


T X S 




7A3D 

SEFE02 


ST X 

DSPFLG 

? 

SET DISPLAY FLAG. 

7 A 4 0 

6C1205 


STY 

SAVYR 

• 

9 

SAVE INDEX TO ERROR, 

7A43 

85B8 


STA 

NUMBER 

0 

9 

SAVE ERROR NUMBER. 

7A45 

20BB96 


JSR 

TSTMOC 

0 

9 

CHECK SCREEN MODE. 

7A4g 

2905 


AND 

4TXSL+GRSS 

• 

9 

TEXT OUTPUT O.K.? 

7A4A 

D003 A 7 A4F 


BNE 

JML920 

0 

9 

YES. 

7A4C 

20F494 


JSR 

TXOPEN 

? 

NO -- OPEN TEXT SCREEN. 

7A4F 

A90© 

: ML920 

LUA 

AEPLTC-IOVBAS 

• 

9 

RE-ESTABLISH 'Ei' AS 'CHOT' OUTPUT. 

7 AS 1 

8D3005 


STA 

CDEST 



7A54 

20989F 


JSR 

NEY'LIN 



7 AS 7 

A5FF 


LD A 

RUN 

; 

IF IMMEDIATE ... 

7A59 

0583 


ORA 

INLN+3 

? 

... & EMPTY INPUT LINE ... 

7A58 

F 0 6E A 7ACB 


BEG 

! ML990 

• 

9 

... THEN IGNORE ERROR (BREAK). 

7 A5D 

A5B8 


LD A 

NUMBER 



7 A5F 

C98 1 


CMP 

4E0PERR 

0 

9 

SEE IF ERROR IS END OF PROGRAM, 

7 A6 1 

F 062 A 7 A C5 


BEG 

: ML9 85 

0 

9 

YES -- NO STATEMENT TO PRINT. 

7A63 

A8 


TAY 


0 

9 

(SET CC). 

7 A64 

3012 A 7 A 78 


BMI 

: ML947 

0 

9 

YES -- NO HIGHLIGHTED CHARACTER. 

7 A66 

AL 1 205 


LDY 

SAVYR 

• 

9 

HIGHLIGHT THE ERROR CHARACTER. 

7 A69 

B 1 8 0 


LD A 

( INLN) r Y 



7 A6b 

804605 


STA 

xxxx 

? 

SAVE FOR LATER RFSTORATICN. 

7A6E 

C99b 


CMP 

#EOL 



7 A 7 0 

H002 A 7A 74 


0PJE 

: M L 9 4 5 



7A72 

A920 


LD A 

n 0 0 


} REPLACE EOL WITH BLANK. 

7 A 74 

4980 

! ML 945 

EUR 

P$ 80 

• 

9 

INVERT COLOR. 

7 A 76 

9180 


STA 

(INLN) , Y 



7 A 78 

A5FP 

! ML94 7 

LD A 

RUN 

0 

9 

SEE IF RUN OR IMMEDIATE MODE, 

7 A 7 A 

F 0 0 8 A 7A84 


BEG) 

: M L 9 5 0 

0 

9 

immediate. 

7A7C 

A 0 0 0 


LDY 

4INLN-DTAB 



7A7E 

P0229F 


JSR 

PS F 

; 

RUN -- PRINT STORAGE FORMAT. 

7 A8 1 

4C8D7A 


JMP 

! M L 9 6 0 



7A84 


SML950 





7 AS4 

A 9 0 0 


LD A 

40 

; 

★** OR DON'T USE 'INLN'+2 AS TEMP STORE 

7 A86 

858? 


STA 

I NLN + 2 




PILOT 
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7 ASS A200 

LUX 

A INLN-DT Ad 

? 

IMMEDIATE -- PRINT INPUT LINE. 

7 A 8 A 209797 

JSR 

PRTSTG 



7A80 A5F8 

! ML96 0 IDA 

NUMBER 

; 

WAS THERE A HIGHLIGHTED CHARACTER? 

7 AS F 3 0 0 F a 7AA0 

BMI 

SML963 

• 

9 

NO. 

7 A 9 1 AC 1 205 

LD V 

savyr 

0 

9 

RESTORE ORIGINAL CHARACTER. 

7A94 AD4805 

LOA 

XXXX 



7A97 9180 

STA 

(INLN)r Y 



7 A 99 C 998 

CMP 

#EOL 

0 

9 

WAS IT THE EOL? 

7A98 D003 A 7AA0 

RNE 

: ML963 

; 

NO. 

7A9D 208294 

JSR 

CHOT 

? 

YES -- DO IT NOW. 

7 A A 0 A908 

:ML963 LD A 

AASTMES 

• 

9 

PREFIX MESSAGE WITH '***'. 

7AA2 20FFB4 

JSR 

MESSOT 



7 A A 5 A 56 8 

LD A 

NUMBER 



7 A A 7 C98© 

CMP 

A1HERR 

f 

I/O ERROR? 

7 A A 9 DOGA A 7 A85 

BftE 

: ML98 1 

0 

9 

NO, 

7 A A 8 A4E4 

LOT 

IOSTAT 

0 

9 

YES -- BREAK? 

7 A A 0 COSO 

CP Y 

A 1 28 



7 A A F D 0 0 4 a 7aB5 

8ft E 

: ML98 1 

0 

9 

NO. 

7 AB 1 A 9 S 7 

LD A 

AA8TERR 

0 

9 

YES -- CHANGE ERROR CODE. 

7A«3 *566 

STA 

NUMBER 



7 A B 5 20FFB4 

SML981 JSR 

MESSOT 

0 

9 

GENERATE ERROR MESSAGE. 

7 AR6 A 568 

LD A 

NUMBER 



7 ABA C986 

CMP 

AIOERR 

0 

9 

I/O ERROR? 

7 A 3C 0005 A 7AC3 

8ft E 

!ML98? 

0 

9 

NO. 

7 ARE A 26 4 

LDX 

AIOSTAT-DTAB 

0 

9 

YES -- PRINT ERROR STATUS. 

7 AC U 20149E 

JSR 

DEC A SC 



7AC3 A 9 0 8 

JML982 LD A 

AASTMES 

0 

9 

APPEND '***' TO END OF MESSAGE. 


; *** EXTERNAL 

ENTRY POINT FROM 

' 

MLQOP # *** 

7 AC5 20FFB 4 

J ML985 JSR 

MESSOT 



7AC6 20989F 

JSR 

NEWLIN 



7 AC8 4CE470 ! 

ML990 JMP 

mlres 

• 

9 

GET NEXT COMMAND. 


PILOT 


7 ACt 


7 ACE 

7 AO 1 
7 AD3 
7AD5 

7 A 0 8 
7 A09 
7 AOC 
7AOE 
7ADF 
7AE1 

7AE4 


7 AE 7 


7 AE 7 
7 AE A 


7 AED 
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9 LINE INSERT AND DELETE ROUTINES 


PROC 

LINSRT -- INSERT NUMBERED LINE TO STATEMENT LIST 

CALLING SEQUENCE? 

"LINENO" s LINE * (BINARY) 

"INLN' POINTS TO STATEMENT TO INSERT 
"TKNTYP" = TOKEN 

"TKNOFF" = OFFSET PAST COMMAND IN SOURCE STATEMENT. 



; JvSR 

LINSRT 




? BNE 

• 

NO ROOM' IN 

MEMORY 

OR OTHER PROBLEM 

20ED7A 

9 

LINSRT JSR 

NUMNAM 

• 

1 

SETUP "LINENO" AS STRING NAME 

A242 

LDX 

*DP-DT AB 

• 

9 

SETUP STRING AT A POINTER, 

A 0 0 0 

LUY 

*INLN-DTA8 



203B9A 

JSR 

PMOVE 



38 

SEC 


• 

9 

OFFSET PAST COMMAND r 

AD6A05 

LD A 

TKNOFF 

• 

9 

... "TKNOFF". 

F5P2 

sec 

I N L N + 2 

f 

... - "INLN +2", 

18 

CLC 




690b 

ADC 

*6 

} 

■ , ■ + 6 . 

8D6A0S 

ST A 

TKNOFF 



4C0599 

JMP 

SINSPT 

9 

9 

INSERT LINE ft RETURN WITH CC 


PROC 

LDELET -- NUMBERED LINE DELETE FROM STATEMENT LIST 
CALLING SEQUENCE: 


; "lineno' = line # (binary) 



? JSR 

LDELET 





; BNE 

• 

LINE NOT 

FOUND OP 

OTHER 

PROBLEM 

20ED7A 

LDELET JSR 

NUMNAM 

9 

9 

SETUP 

"LINENO" AS STRING NAME. 

4CEC98 

JMP 

SDELET 

9 

9 

DELETE 

LINE l RETURN WITH CC SET. 


PROC 

NUMNAM -- SETUP "LINENO' AS STRING NAME & SETUP ACCESS TC STATEMENT LIST, 


ATARI CAMAC Assembler Ver l.OA Page 23 
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i CALLING SEQUENCE: 
; 




; 

• 

JSR 

numnah 



0 

• 

0 

? 

'ATRTYP 

# SET FOR LINE # 

7 AEO 

A9PC 

numnah 

LD A 

A LOW LINENO 

7 AEF 

85FE 


STA 

NP 

7 A F 1 

A 9 0 0 


LD A 

A HIGH LINENO 

7 A F 3 

658F 


STA 

NP+1 

7 A F 5 

A 9 0 0 


LD A 

#0 

7 A F 7 

esco 


STA 

NPt2 

7 A p 9 

A 9 0 2 


LDA 

m 

7 A F B 

85C 1 


STA 

NP + 3 

7 A F 0 

aC9F9E 


JMP 

SFMLST ? SETUP TO ACCESS STATEMENT LIST & RETURN 


ATARI CAMAC Assembler Ver l.OA Page 24 
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7690 


PROC 

; 

; GETCOM -- get A COPLAND LINE FOP THE MAIN LOOP 
J 

7 CALLING SEQUENCE: 

• 

'LOADFG ' = 0 IF NOT LOADING FROM DEVICE, ELSE LOADING. 
; 'RUN' = 0 IF IMMEDIATE MODE, ELSE RUN MODE, 

: 'NXTLN ' POINTS TO NEXT RUN MODE LINE. 

; 

? JSR GETCOM 

7 8NE ERROR (A s ERROR NUMBER) 




; 

' I NLN ' POINTS TO NEW 

COMMAND LINE. 



; 

Y = 

INDEX TC START OF 

STATEMENT. 



; 

a 

'NXTLN' POINTS TO NEXT RUN 

MODE LINE. 



7 

t 

IF 

'RUN', THEN 





7 

7 

'TKNTYP ' = TOKENIZED 

COMMAND 



7 

'TKNQFF' s offset past COMMAND IN STATEMENT STORAGE. 

7600 

AD3205 

7 

GETCOM 

LDA 

LOADFG 

• 

9 

LOADING FROM DEVICE? 

7003 

D041 A 7646 


8NE 

: GC2 0 0 

7 

YES. 

7005 

A5FF 


LDA 

RUN 

• 

9 

RUN MODE? 

7607 

F 0 3 1 A 7B3A 


BEQ 

:GC100 

7 

NO -- IMMEDIATE. 

7809 

207E9F 

: GCO 1 0 

JSR 

A8RTCK 

a 

, 

YES -- CHECK FOR OPERATOR 

70OC 

A200 


LDX 

AINLN-DTAB 

? 

GET NEXT STATEMENT ADDRESS 

7b0E 

A 0 0 4 


ldy 

ANXTLN-DTAB 



7810 

20459A 


JSR 

DMO V I 



7813 

A 0 0 0 


LDY 

P 0 

• 

, 

GET & SAVE LINE END INDEX. 

7615 

eiao 


LDA 

( I NLN ) , Y 



7017 

8583 


STA 

INLN+3 



7019 

A 0 3 0 


LDY 

aStH-DTAB 

• 

, 

END OF PROGRAM? 

7B1B 

20159C 


JSR 

DCMPI 



78 1 E 

D 0 0 6 A 7b26 


BWE 

JGC020 

7 

NO -- KEEP TRUCKIN'. 

7820 

A 9 8 1 


LDA 

flEOPEPR 

7 

RETURN WITH INDICATOR. 

7022 

8D4305 


STA 

NOCCNT 

a 

9 

NO CONTINUATION. 

7B25 

60 


RTS 




7326 


JGC020 







; *S* 

LOX 

#INLN-DTA8 



7B26 

20869a 


JSR 

SATTR 

7 

'ATTRIBUTE' 

7629 

8D6805 


STA 

TKNTYP 

7 

AS ADVERTISED. 

7 62C 

C 8 


INY 




732D 

8 1 A 1 


LDA 

(TEMP) , Y 



762F 

8D6A05 


STA 

tkncff 

7 

AS ADVERTISED. 

7b3 2 

A204 


LDX 

#NXT LN-DTAB 

• 

9 

POINT TO NEXT LIME, 

7B34 

20AA9A 


JSR 

S N X T I 



7B37 

A 90 0 


LDA 

n 0 

7 

SET CC FOR RETURN, 






c 

i 


PILOT -- h.8. 
7b39 60 
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RTS 


i 

i 

( 

I 

m 




i GET A LiNt PROP THE CONSOLE. 


7b 3 A 


: GC10U 


7B3 A 

A 9 0 0 

LOA 

A 0 

783C 

8583 

STA 

INLN+3 

7b3E 

A200 

LDX 

A INLN-OT AB 

7b«0 

? 0 B 1 94* 

JSR 

GETLIN 

7aa3 

A 0 0 0 

LDY 

90 

70415 

60 

RTS 



? CLEAR LINE LENGTH FOP "bREAK". 

; GET AN INPUT LINE FROM CONSOLE. 

; SET INDEX TO START OF STATEMENT (CC TOO) 



? GET DATA 

FROM DEVICE ASSIGNED 

TO 

IOCB 3. 

70416 86 A 1 

: GC200 STX 

TEMP 

? 

SAVE REGISTERS. 

7b418 A560 

: GC205 LUA 

INLN 

• 

9 

SETUP BUFFER ADDFESS. 

7041A 8D74103 

STA 

I0CB3+IC6AL 



70410 A581 

LOA 

INLN+1 



7041 F 807503 

STA 

I0CB3+IC8AH 



7052 A 9 0 5 

LOA 

AGETR 

• 

9 

GET RECORD COMMAND. 

7B5M 807203 

STA 

IQC63t ICCQM* 



7057 A 9 7 9 

LOA 

A LOW LINLNG-1 

• 

/ 

SETUP MAXIMUM LINE LENGTH. 

7059 807603 

STA 

I0C83+ICBLL 



705C A9FF 

LOA 

A HIC-H LINLNG-1 



705E 807903 

STA 

IQC83+ ICBLH 



7061 A230 

LDX 

AI0CB3 

• 

9 

GET RECORD. 

7863 2056E4! 

JSR 

CIO 



7666 AD7803 

LOA 

IQCB3+ICBLL 

? 

PUT START/END INDICES IN POINTER. 

7869 8583 

STA 

INLN+3 



7866 4 9 0 0 

LOA 

AO 



7060 8502 

STA 

INLN+2 



766F CCOO 

CP Y 

AO 

• 

9 

ERROR? 

7871 1029 A 7B9C 

BPL 

: GC250 

} 

NO. 

7073 4900 

LD A 

AO 

• 

9 

THAT OR END-OF-FILE. 

7675 803205 

STA 

LCADFG 

• 

9 

STOP LOADING IN EITHER CASE. 

7078 COBS 

CP Y 

a sea 

? 

END OF FILE? 

707 A DO 1 D A 7B99 

BNE 

: GC220 

• 

9 

NO. 


7 07C 

203F97 


JSR 

CCLCSE 

; 

707F 

A5F F 


LD A 

RUN 

; 

7681 

F010 A 

7B93 

BE 0 

JGC210 

9 

9 

7083 

A90Q 


LD A 

no 

• 

9 

7085 

8D4305 


STA 

NOCONT 


7080 

A5AE 


LDA 

S1L 

) 

768 A 

8564 


STA 

NXTLN 




ATARI 

CAMAC Assent 

1 er Ver 

1 • 0 A P« 

PILOT 

- - H . 6 * 

STEWART 





? YES -- CLOSE DEVICE* 

IS the USER PROGRAM running? 

MO IMMEDIATE LOAD OR load error. 

? CONTINUE O.K. 

; SETUP TO RUN PROGRAM LOADED. 


i 26 

Cl SPILOT. 
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PILOT 

OD 

• 

X 

1 

1 

. STEWART 




D 1 JPILOT. 

788C 

ASAP 


LD A 

S 1 L + 1 



708E 

8S85 


STA 

NXTLN+1 



769 0 

4CP97B 


JmP 

JGC010 

• 

9 

(TOO FAR FOR 'RELATIVE'). 

76°3 

2U2CR5 

: GC2 1 0 

JSR 

ROYMFS 

• 

9 

GENERATE "READY" MESSAGE. 

7696 

UCE476 


JMP 

MLRES 

• 

9 

GRACEFUL TERMINATION OF LOAD. 

7e99 

AC2697 

: GC220 

JMP 

D0P005 

; 

ABORT LOAD OPERATION. 

7B9C 

A 0 0 0 

! GC250 

LDY 

no 

m 

9 

ACCEPT ONLY NUMBERED LINES. 

7 69 1 

20139F 


JSR 

SLR 



76 A 1 

20P39E 


JSR 

CNUMBR 



7bA4 

B0A2 a 

7 648 

BCS 

SGC205 

• 

9 

NOT NUMBERED-- IGNORE. 

78A6 

AbA 1 


LDY 

TEMp 

} 

RESTORE REGISTER. 

76A8 

A 0 0 0 


LOY 

no 

i 

SETUP INDEX TO START OF STATEMENT 

76 A A 

60 


RTS 


• 

9 

RETURN WITH CC SET. 


I 

« 


c 

c 
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78A9 


PROC 

SYCMND -- SYNTAX CHECK THE COMMAND 

calling sequence: 


X s VALID COMMAND MODE. 

' 1 NLN ' POINTS TO THE STATEMENT 
Y = INDEX TC START OF STATEMENT 


JSR 

BNE 


SYCMND 

SYNTAX ERROR (A s ERROR CODE) 


'TKNTYP' = TOKENIZFD COMMAND. 
O/AUSROFF-1 


s COMMAND IS IN 'CDTAe' 


#USROFF/*USROFF + l¥USRMAX-l = COMMAND IS IN 'USRTAB' 


'TKNCNT ' 
'TKNNUL' 


RESERVED FOP ': CONTINUATION' 
RESERVED FOR 'NULL' COMMAND 


'TKNOFF' = OFFSET PAST COMMAND FROM BEGINNING OF STATEMENT. 


78AB 

20P39E 

SYCMND JSR 

SCNLBL 

; 

SCAN PAST LABEL IF PRESENT. 

78AE 

20139F 

JSR 

SLB 



7tsR 1 

C93 A 

CMP 

' 

• 

9 

COMMAND CONTINUATION? 

7683 

F01D A 7BD 2 

REQ 

: SC010 

; 

YES. 

7685 

20F99E 

JSR 

CHKTRM 

• 

9 

'NULL' COMMAND? 

7606 

F01D A 7B07 

BEG 

: SC020 

a 

9 

YES. 

7BBA 

A900 

LD A 

no 

a 

9 

RESET EXECUTE FLAG. 

7BBC 

6592 

S TA 

EXEC 




76BE 

20567C 


JSR 

CM AT CH 

a 

FIND COMMAND. 

76C1 

F 0 06 A 7BC9 


BEQ 

JSC005 

• 

VALID. 

7 faC3 

C902 


CMP 

# I VCERR 

a 

IF NOT IN TABLE, ASSUME 'GR : ' . 

7BC5 

DO 1 A A 7BE 1 


BNE 

I SC 0 99 

? 

ERROR. 

7SC7 

A23 A 


LDX 

PCDG-CDTA8 

a 

9 

CASE! 10 360 (HOME ? DR Aw lOjTURN 

7BC9 

BE6805 

: SC005 

S T X 

TKNTYP 

a 

f 

TOKENIZE COMMAND. 

7BCC 

8C6A05 


STY 

TKNCFF 

• 

F 

OFFSET PAST COMMAND. 

76CF 

4C087C 


JMP 

E X C 1 0 0 



78 02 

C8 

ISCG10 

INY 


a 

9 

MOVE PAST 

7 8D3 

A9FE 


L D A 

#TKNCNT 

? 

COMMAND CONTINUATION. 

7BD5 

D00£ A 76D9 


BNE 

: scoso 

• 

9 

(BRA) . 


78D7 

A9FF 

JSC020 

LDA 

ptknnll 

7809 

8 06 6 05 

:SC050 

STA 

TKNTYP 

7BDC 

8C6A05 


STY 

TKNCFF 

78DF 

A 9 0 0 


LDA 

no 

7PF1 

60 

! SC 099 

PTS 



? NULL COMMAND. 


} SET CC FOR EXIT. 


A Ij 1 


A li A P h ^ . 


n ^ ^ 


n Q 




PILOT 
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7 BE2 PKOC 

; 

; EXCMND — EXECUTE THE COMMAND 


CALLING SEQUENCE: 




7 

'TKNTYP' = TOKENIZED COMMAND. 



• 

9 

! 

'TKNOFF' r OFFSET PAST 

COMMAND. 



9 

• 

9 

JSR 

EXCMND 





• 

9 

• 

BNE 

SYNTAX OR RUN-TIME ERROR (A = ERROR CODE). 

7BE2 

AC6A05 

9 

EXCMND 

LDY 

TKNGFF 

? 

OFFSET PAST COMMAND, 

78E5 

A9FF 


LD A 

AS F F 

7 

SET EXECUTE FLAG. 

7BE 7 

8S92 


STA 

EXEC 



7BE9 

AE6605 


LDX 

TKNTYF 

; 

TRAP FOR 'RESERVED' TOKENS. 

78EC 

FOFE 


CPX 

ATKNCNT 



7bEt 

9015 A 7C 08 


RCC 

EXC100 

• 

9 

NOT 'RESERVED'. 

7BF 0 

DO 1 3 A 7C05 


BNE 

: EC 020 

• 

r 

'NULL' COMMAND. 



7 COMMAND CONTINUATION 



7BF2 

AE6905 


LDX 

LSTKN 

? 

USE TOKEN FROM 'LAST' COMMAND. 

7BF5 

8E6805 


STX 

TKNTYP 



7BF8 

E008 


CPX 

ACLNCNT 

; 

NO -- CHECK 'CDTAB ' SEGMENT. 






7 

C'USRTAB' NOT ALLOWED), 

7bF A 

9004 A 7C 0 0 


BCC 

: ECO 1 0 

• 

9 

O.K. 

7bFC 

86 


DEY 


? 

POINT TO 

7BF0 

A902 


LD A 

AIVCERR 

• 

9 

INVALID CONTINUATION. 

7b F F 

60 


RTS 






? COMMAND CONTINUATION IS VALID 

• 


7C00 

ADObOb 

: ECO 1 0 

LD A 

EXECF 

7 

USE PRIOR 'EXECF'. 

7C03 

D03F A 7C44 


BNE 

JEC500 

• 

9 

EXECUTE COMMAND USING PRIOR 'XJUMP'. 



7 EXIT 

FOR ' 

NULL' COMMAND. 



7C05 

A 9 0 0 

: EC020 

LD A 

#0 

• 

9 

SET CC FOR EXIT. 

7C07 

60 


RTS 






; *** entry 

FROM 'SYCMND ' *** 



7C08 

200E81 

EXC100 

JSR 

COND 

7 

PROCESS CONDITION IF PRESENT. 

7C0 b 

A592 


LC A 

EXEC 

7 

EXECUTE MODE? 

7C 0 D 

F 0 0 5 A 7C14 


BtQ 

: EC300 

• 

9 

NO -- SYNTAX SCAN ONLY. 

7C0F 

AD06C5 


LDA 

EXECF 

7 

EXECUTE COMMAND? 

7C12 

F 0 ai i A 7C55 


PEG 

! EC900 

7 

NO -- NORMAL EXJT. 

7C14 

8 <4 A B 

: EC300 

STY 

XT EMP 

• 

9 

SAVE Y. 

7C 1 6 

AC6805 


LDY 

TKNTYP 

7 

'USRTAB' OR 'CDTAB'? 

7C19 

8C6905 


STY 

LSTKN 

a 

9 

SAVE TOKEN IN CASE NEXT COMMAND USES 


# • 
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7C1C C06C 

CRY 

AUSROF F 

7C1E ROOF A 7C2F 

BCC 

IEC400 

7C2Q 96 

T Y A 


7C21 30 

SEC 


7C22 E96C 

SBC 

AUSHOFF 

7C2U A 6 

TAY 


7C25 ADO 0 05 

LDA 

USRTAB 

7C28 85A 1 

STA 

temf 

7C2A ADO i 05 

LDA 

USRTAB+l 

7C2D 0006 A 7C 35 

BNE 

JEC410 

7 C2F A93E :EC400 

LDA 

U LOW CDTAB 

7C31 S5 A 1 

STA 

TEMP 

7C33 A 98 C 

LDA 

n HIGH CDTAB 

7C35 85A2 JEC410 

STA 

TEMP + 1 

7C37 BlAi 

LDA 

(TEMP), Y 

7C39 8D0605 

STA 

XJUNP+1 

7C3C C6 

INY 


7C3D BlAi 

LDA 

(TEMP) , y 

7C3F 8D0905 

STA 

XJUMP+2 

7C42 A 4 A 8 

LDY 

XTEMP 

7C^4 A, 592 : EC50 0 

LDA 

EXEC 

7C^6 200705 

JSR 

XJUMP 

7C<J9 DOOA A 7C55 

BNE 

: EC9 0 0 

7C^6 2 0 1 3 9 F 

JSR 

slb 

7C4 £ 20F99E 

JSR 

CHKTRM 

7C5I F 0 02 A 7C55 

BEG 

SEC900 

7C53 A902 

LDA 

# JNKERR 

7C55 60 ; EC900 

RTS 
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01 l P ILOT , 


; # ! -CONTINUATION' . 

? 'CDTAB'. 

? 'NORMALIZE' RELATIVE TO 'USRTAB'. 


; (BRA). 


; MOVE ADDRESS TO JUMP INSTRUCTION. 

? RESTORE INDEX. 

? SET CC FOR X-ROUTINES. 

? YES -- EXECUTE (OR SCAN) . 

? ERROR -- RETURN WITH CC SET. 

? SKIP ANY BLANKS, 

; STATEMENT TERMINATOR? 

; YES -- O.K. 

? JUNK -- ERROR, 

? RETURN WITH CC SET. 


i 


ATAkI CA^AC Assembler Ver 
— H.b. STEWART 


1 . 0 A Page 30 

D1 iPILOT. 


PROC 

CMATCH -- COMMAND PATCH ROUTINE 

ORDER OF SEARCHING: 

t. THE USER EXTENDABLE COMPAND TABLE 
8. THE GRAPHICS SUBCOMMANDS 
3. THE INTERNAL COMMAND TABLE 


CALLING SEQUENCE! 


'USRTAB' = ADDRESS OF USER EXTENDABLE COMMAND TABLE (0=NONE) 
(OFFSETS ARE RELATIVE TO 'USRTAB'). 


X s IMMEDIATE A 
'INLN' POINTS T 
Y = INDEX TO ST 


ND/OR RUN COMMAND' VALID 
0 SOURCE STATEMENT. 

ART OF COMMAND NAME. 


JSR 

BNE 


NOTE: 


NAME MATCH MUST 
STATEMENT TC BE 
"TYPEM 


CMATCH 

NO MATCH IN TABLE (A = ERROR CODE, Y UNCHANGED) 


CT AB ' DATA BYTE FOR ENTRY ('TOKENIZED' COMMAND). 
OFFSET IN 'CDTA8'). 

'USROFF' + OFFSET IN 'USRTAF'). 

ITART OF FIELD AFTER COMMAND NAME, 

IBUTE BITS OF COMMAND. 

BE EXACT FOR THE REST OF THE 
PROCESSED CORRECTLY. FOR EXAMPLE: 

" WTLL BE SCANNED AS TY<JUNK>:, NOT 

T<JUNK»Ni • 



VALUE 

OF 

< 

'USROFF' 

> s 

'USRO 

FF' 

a 

INDEX 

TO 

TAB 

AT' = 

ATT 


7C5b 

8E1005 

CMATCH STX 

CTABAT 

) 

SAVE VALID COMMAND TYPES. 

7C59 

8 R A o 

STY 

XTEMP 

; 

SAVE Y REG. 

7C5t3 

AD0005 

LDA 

U5RTAB 

• 

9 

SELECT 'USRTAB' IF ADDR>?55, 

7C5E 

8590 

STA 

TABADR 



7C60 

AD0105 

LDA 

USPTAB+1 



7C6i 

F U 1 8 A 7C7D 

BEQ 

! cma 1 0 

i 

NO USER EXTENDED COMMAND TABLE. 

7C65 

8591 

STA 

T AB ADR 1 1 



7C67 

20BD7C 

JSR 

CMACOM 

• 

9 

SEARCH 'USRTAB' 

7C6A 

DO 1 1 A 7C7D 

BNE 

S CM A 1 0 

l 

NUT IN 'USRTAB' 

7C6C 

Eo9a 

CPX 

AUSRMAX 

; 

IS 'USRTAB' TOO LARGE? 

7Cbt 

eOOD A 7C 70 

BCS 

:CMA10 

• 

9 

YES -- PRETEND COMMAND WAS NOT THERE. 

7C70 

96 

T Y A 


) 

CHECK 'ATTRIBUTE' 

7C71 

?C 1 0 05 

BIT 

CTABAT 



7C7A 

F 03 1 A 7C A7 

BEQ 

: CMA90 

? 

WRONG COMMAND TYPE. 



? command IS 

IN 'USRTAB' 



7C 76 

8 A 

T X A 


• 

9 

SET 'TOKEN' FOR 'USRTAB' 

7l 7 7 

16 

CLC 




7C78 

696C 

ADC 

^USROFF 

; 

SET OFFSET TO IDENTIFY TOKEN IN 'USRTAB', 


PILOT 
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7C7A AA 

7C7b 0023 A 7C AO 


c 

€ 


TAX 

BnE I CMA5U 

; search graphics subcommands 


; (BRA). 


7C7D A A B 

:CMA10 

LDY 

XTEMP 

} 

RESTORE INDEX. 

7C7F A204 


LDX 

*GT AB X 



7CS1 20AB7C 


JSR 

SBCMAT 

9 

9 

GRAPHICS SUBCOMMAND? 

7CS4 DO 0 7 A 7C8D 


8NE 

:C*A20 


NO. 

7C86 ARAB 


LDY 

XTEMP 

? 

RESTORE INDEX FOP SYNTAX CHECK. 

7C86 A53A 


LDX 

#CDG-CDTAb 

? 

TOKENIZE AS 'GR:'. 

7C8A A900 


LDA 

#0 

• 

9 

SET CC FOR EXIT. 

7C8C 60 


RTS 





? SEARCH INTERNAL COMMAND TABLE 



7C8U A <? 0 1 

:CMA20 

LDA 

«LOw CTAB 



7C6F 8590 


STA 

TABADR 



7C 9 1 A97D 


LDA 

AHIGH CTAB 



7C93 8591 


STA 

TA8ADR+1 



7C95 P0BG7C 


JSR 

CMACOM 

9 

9 

SEARCH 'CTAB' 

7C 96 D01E A 7C B8 


BNE 

: CMA99 

9 

9 

NOT IN 'CTAB' -- INVALID. 

7C9 A 98 


TYA 




7C98 2C1005 


BIT 

CTABAT 



7C9E FO 07 A 7CA7 


8EQ 

I C M A 9 0 

• 

9 

WRONG COMMAND TYPE. 


? command is 

IN 'CTAB' 



7CA0 SCI 0 05 

: CMA50 

STY 

CTA8AT 

9 

9 

STORE 'ATTRIBUTE'. 

7CA3 A 9 0 0 


LDA 

AO 

m 

9 

SET CC FOR EXIT, 

7C 45 F011 A 7CB8 


BEQ 

: CM A 99 

9 

9 

(BRA) , 

7C A 7 A 98 3 

ICMA90 

LDA 

anrcerr 

9 

9 

WRONG COMMAND TYPE. 

7CA 9 DOOD A 7CB8 


BNE 

:C*A99 

9 

9 

(BRA) . 




S6CMAT -- SUBCOMMAND MATCH ROUTINE 
CALLING SEQUENCE: 

X s INDEX TO THE SUBCOMMAND TABLE FROM 'SBCTAB' 

'1NLN' POINTS TO SOURCE STATEMENT. 

V = INDEX TC START OF SUBCOMMAND NAME. 

JSR SBCMAT 

BNE NOMATCH IN TABLE (A = ERROR CODE, V UNCHANGED) 

X = VALUE OF 'S6CTAB' DATA BYTE FOR ENTRY ('OFFSET' OR 'VALUE') 

Y = INDEX TC START OF FIELD AFTER COMMAND NAME. 

? SELECT SUBCOMMAND TABLE. 


7CAB 

BD207E 

SbCMtAT LDA 

SECT AP,X 

• 

9 

7CAE 

P590 

STA 

TAPADR 


7CR0 

BDP17E 

LDA 

SBCT AR + 1 , X 




ft 

I 

« 


PHUT 
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7C93 

7CP5 20BD7C 


7CP0 

7C66 00 

7CP9 A 4 A 1 
7CB6 20 
7C B C 60 


STA TABADR+1 

JSR CMACOM ? COMMON CODE. 

? *** OPTIONAL ENTRY PROM 'CMATCH' **★ 


:CMA<?9 

PH P ? SAVE CC. 

LDY TtMP } RESTORE INDEX IN 'INLN'. 

Pl_P ; RESTORE CC FOR CALLER. 

RTS 


7C9D 


PROC 

J 

7 CMACOM -- COMMON CODE FOR 'CMATCH' AND 'SBCMAT' 
• 

? CALLING SEQUENCE? 

; 'TA8ADR' = EASE ADDRESS OF MATCH TABLE. 

; 'INLN' POINTS TO SOURCE STATEMENT. 

? Y = CURRENT INDEX IN 'INLN' 

? 

7 JSR CMACOM 

; BNE NO MATCH IN TABLE (A = ERROR CODE) 


? X = 'OFFSET' BYTE 

7 Y = 'ATTRIBUTE' BYTE 

7 TEMP = INDEX TO START OF FIELD AFTER COMMAND NAME. 


ALAS ThE INDIRECT INDEXING OF THE 6502, 

MOVE '(INLN)fY' THROUGH '(INLN),Y + INBFSZ-1 TO 
A FIXED BUFFER , 'INLN8F', SO THAT 'X' CAN INDEX 'INLN' 
WHILE 'Y' INDEXES THE TABLE. 


CONVERT LC -> UC IN ' INLNBF ' , 


7 ceo 

201 39F 

CMACOM 

JSR 

SLB 

• 

9 

SKIP LOADING BLANKS 

7CC0 

04A1 


STY 

TEMP 

• 

9 

SAVE INDEX IN 'INLN' 

7CC2 

20F79B 


JSR 

MV INLN 

; 

MOVE 'PART' OF 'INLN' 

7CC5 

AOFF 


LDY 

#3>FF 

• 

9 

SEARCH FROM THE BEGINNING OF '(TABADR)' 






• 

9 

(PRE-DECREMENT) . 

7CC7 

A2FF 


LDX 

ASFF 

• 

9 

START AT TWO BEGINNING OF ThE SOURCE. 






? 

(PRE-DECREMENT) . 

7CC9 

C0 

: CMA05 

INY 


• 

9 

NEXT TABLE CHARACTER. 

7CC A 

E6 


I NX 


? 

NEXT SOURCE CHARACTER. 

7CC6 

B 1 9 0 


LDA 

(TBLBAS ) , Y 

? 

SEE IF END UF NAME IN TABLE. 

7 CCD 

3022 A 7CF 1 

: CMA 1 0 

BMI 

ICMA70 

• 

9 

YES -- MATCH FOUND, 

7CCF 

DL 30 05 


CMiP 

INLNBF, X 

9 

9 

MATCH NEXT SOUPCE CHAR? 

7CD2 

F 0 F 5 A 7CC9 


BEQ 

: CMA 05 

• 

9 

YES -- CONTINUE COMPARISON, 
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7CD9 C6 

7cr>5 P19Q 

7C07 1 OFB A 7CD4 


: CMA20 


INY 

LOA 

BPL 


(TRLBAS) 9 Y 
:C^A20 


7C09 CO 
7COA CS 


INY 

INY 


7CDB C0F2 
7C0D 9008 A 7CE7 
7CDF 96 
7CE0 A 2 1 0 
7CE2 20089D 
7CE5 A 0 0 0 


CP Y 
8CC 
T YA 
LUX 
JSR 
LDY 


#$FF-INBFSZ-3 
: C t* A 3 0 

ATBL8AS-DTAB 

OADCP 

AO 


7CP7 

A200 

JCMA30 

LDX 

AO 

7CE9 

BIRO 


LOA 

(TRLBAS) f Y 

7CEB 

DOE 0 A 7 CCD 


8NE 

: CPA 1 0 

7CED 

A902 


LOA 

AIVCERR 

7CEF 

DC 0 F A 7D00 


BNE 

! CMA90 

7CF1 

48 

: CMA 7 0 

PHA 


7C p d 

8 A 


T X A 


7C F 3 

18 


CLC 


7CF4 

65 A 1 


ADC 

TEMP 

7 CFb 

85 A 1 


STA 

T£Pp 

7CF8 

CS 


INY 


7CF9 

6190 


LDA 

(TRLBAS) , Y 

7CFb 

AA 


TAX 


7C P C 

66 


PLA 


7 CFO 

AS 


tay 


7CFE 

A 9 0 0 


LDA 

AO 

7 D00 

60 

.'CMA90 

RTS 
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; SCAN TO END CP NAME ENTRY. 


? SCAN PAST 'ATTRIBUTE' BYTE. 
; SCAN PAST 'OFFSET' BYTE. 

; WILL INDEX WRAP? 

; NO. 

f YES -- ADJUST BASE POINTER. 


7 ... AND RESET INDEX. 

} RESTORE SOURCE INDEX. 

? CHECK FOR END OF TABLE. 

? NO -- KEEP CHECKING. 

f TABLE END -- INVALID COMM AND . 

? (BRA). 

? VALUE OF 'ATTRIBUTE' BYTE. 

? OFFSET IN ' INLNBF ' , 

? + INITIAL OFFSET IN ' INLN ' • 

; INDEX TO START OF FIELD AFTER NAME. 


,* 'OFFSET' BYTE. 


? VALUE OF 'ATTRIBUTE' BYTE. 




SET CC 


FOR EXIT. 
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'USRTAB ' -- USER t X TENDABLE COMMAND TABLE 


; SAME STRUCTURE AS 'CTAB' 


; THE EQUIVALENT 'CDTAB' IS APPENDED TO 'USRTAB' SO THAT 

? THE OFFSETS are ACTUALLY FROM THE BEGINNING OF 'USRTA8 # . 
• 

; THE TOTAL LENGTH CF 'USRTAB' MAY NOT EXCEED 'USRMAX'. 

9 

; COMMAND TABLE 
f 



? CONSISTS OF N FNTRIES, EACH 

• 

OF 

THE FOLLOWING FORMAT: 


9 

• 

9 

DB "<COMMANO N A M E > " , 




• 

9 

$80 1 [IMMEDIATE] + [RUN] + I: REQUIRED] , 


? 

• 

INDEX TO COMMAND 

data table. 


; THE TABLE IS ENDEC PY "<NAMt>« 

= 0. 


; ORDER 

• 

9 

OF ENTRIES IS ONLY RESTRICTED BY FIRST FOUND - FIRST MATCHED* NOT BEST 

0080 

SB 

= $6 0 


SIGN BIT. 

0040 

CTIMM 

= $40 


IMMEDIATE COMMAND. 

0020 

CTRUN 

= $20 


RUN COMMAND. 

0010 

CTCLN 

= $10 


s REQUIRED. 

0060 

ctboth 

= CTIMM+CTRUN 


IMMEDIATE OR RUN COMMAND. 

ooeo 

CTNORM 

= CTBOTH+CTCLN -CTCLN 


IMMEDIATE OR RUN COMMAND, S REQUIRED. 

7D01 

ctab 

s * 


INTERNAL COMMAND TABLE BASE ADDRESS. 


7D01 

44454C4159 

DB 

'DELAY',SB+CTNORM, JCDSPD-CDTAB 

• 

9 

DELAY. 

7DG6 

4C495354C0 

DB 

'L1ST',SB+CTIMM, jCDLST-CDTAB 

• 

9 

LIST STORED PROGRAM. 

7D0E 

44454CCQ0A 

D8 

# DEL',SB+CTIMM, JCDDEL-CDTAB 

0 

9 

DELETE RANGE OF LINES 

701 3 

52554EC00E 

DB 

'RUN',SB*CTIMM, SCDRUN-CDTAB 

0 

9 

RUN STORED PROGRAM. 


= 0000 

IF 

DOS 



• 


DB 

ENDIF 

'D0S',S6+CTIMM, ;CDD0S-CDTA8 

0 

9 

GO TO DOS UTILITY. 

7D1 6 

5341 5645CG 

DB 

'SAVE',S6+CTIMM, !CDSAV-CDTAB 

0 

9 

SAVE STORED PROGRAM. 

70 1 E 

4E4557CQ48 

DB 

^ N E V .'r SBfCTIMM, iCDNEW-CDTAB 

? 

CLEAR PROGRAM & VARS. 

7023 

415B544FC0 

DB 

'AUTO', SB+CTIMM, :CDAUT-CDTAB 

; 

AUTO-INPUT. 

7D29 

52454EC01 A 

DB 

'REN',SB+CTIMM, iCDREN-CDTAB 

* 

RENUMBER PROGRAM. 

702E 

434F4E54C0 

DB 

'CONT', SB+CTIMM, :CDCON-CDTAB 

? 

CONTINUE. 

7D34 

5053C01C 

DB 

'PS', SB tC TIMM, sCDCQL-CDTAB 

• 

9 

TURTLE PEN STATUS. 










ATARI CA*AC Assembler Ver l.OA Page 35 
PILOT -- H.8, STEMRT OIjPILOT 



7O?0 

4b53C0lE 

DB 

'ES' , SBfCTIMM, :CDENS-CDTAB ; 

TURTLE ENVIRONMENT STATUS. 

4 

7D3C 

434h 4C4F52 

Ob 

'COLORS ' , SBtCTI mm ,:cdpal-cdtaq 

f PALETTE OF COLORS. 

c 

7DAI4I 

444952C022 

DB 

'DIR',SB+CTIMM, :CDOIR-CDTAB ; 

DISK DIRECTORY. 


7D49 

4S454C50C0 

Db 

'HELP', SB+CTIMM, :CDCOM-COTAB ; 

COMMAND LIST. 

m 


7uap 

495S4D50E0 

DB 

'DUMP'r SB+CTBOTH, tCDDMP-CDTAB J 

DUMP. 

• 


7055 

4C4F4144E0 

D6 

'LOAD',SB+CTBOTH, :CDL0D-CDTA9 ; 

LOAD. 


7058 4045524745 

7D62 415050454E 


r 

# 






DB 'MERGE', SB+CTIMM, :CDMRG-CDTAB ? MERGE. 

U e 'APPEND ', SF. + CTIMM, :CDAPP-CDTAB ? APPEND. 




7D6a 54524143^5 

DB 

'TRACE' , SB+CTBOTH, jCDTRC-CDTAB 

• 

9 

TRACE. 

7D71 564E4557E0 

DB 

'VNEw',SB+CT60TH, SCDNWV-CDTAB 

f 

VNEW. 

7077 5456E04C 

% 

DB 

'TV',S6+CTB0TH,:CDTV-CDTAB 

• 

9 

TV. 

707b 43414C4CE0 

db 

'CALL',Se+CTNORM, jCDCAL-CDTAB 

• 

9 

CALL. 

1 7D8I 54415045E0 

DB 

'TAPE',SB+CTNORM, :CDCSS-CDTAB 

; 

CASSETTE ON/CFF. 

7087 5453594E43 

DB 

'TSYNC'rSB+CTNORM, :CDSNC-CDTAB 

• 

9 

CASSETTE SYNC. 

7 U8t 52454144E0 

DB 

'REAU',SB+CTNORM, : CD IN-CDT AB 

• 

9 

READ RECORD. 

7094 5752495445 

DB 

'WRITE', SB+CTNQPM, SCDOUT-CDTAB 

} 

WRITE RECORD, 

7D9B 434C4F5345 

DB 

'CLOSE ', SB tC TNORM, ;CDDGN-CDTAB 

} 

CLOSE FILE. 

70A2 54EOOO 

PB 

'T ' , S8+CTN0RM, sCDT-CDTAB 

t 

TYPE. 

7D A 5 4C4 5545445 

D8 

'LETTERS', SBtCTRUN, :CDLTR-CDTAB 

} LETTERS 

7DAE 4146E064 

Db 

'AK' f S6+C TNORM, :CDAK-CDTAB 

• 

9 

ACCEPT KEYSTROKE. 

7oe2 4I58E062 

DB 

'AX'fSB+CTNORM, :CDAX-CDTAB 

• 

f 

ACCEPT LITERAL. 

7086 41E02E 

DB 

'A',SB+CTNQRM, sCDA-CDTAB 

• 

9 

ACCEPT. 

7009 43F030 

DB 

'C',SB+CTNORM, SCDC-CDTAB 

} 

COMPUTE , 

7 DSC 55E032 

DB 

'U',SB+CTNORN, sCDU-CDTAB 

• 

9 

USE. 

70SF 45F034 

DB 

'E',SB+CTNOR M , :CDF»CDTAB 

• 

f 

END. 

7DC2 4A4DE036 

06 

'JN',S6+CTN0RM, SCDJM-CDTAB 

• 

9 

JUMP ON MATCH. 

7DC6 4 A£ 0 36 

DB 

'J',SBtCTNORM,:CDJ-CDTAB 

• 

9 

JUMP. 

70C9 4752E03A 

DB 

'GR', SBtCTNORM, CDG-CDTAP 

• 

9 

GRAPHICS. 


% 


\ 

I 

I 


PILOT 
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7DC0 

4D5358E03C 

06 

'MSX ' , SB + CTNORM/ ;CDMSX-CDTAB 




7002 

4D53E03E 

DB 

'MS',SB + CTNORM r JCDMS-CDTAB 

; 

MATCH (PRODUCING) 

STRIP 

7one> 

4D58F040 

OB 

'MX',S6+CTN0RM, SCDMX-CDTAB 





7DD A 

4DE042 

DB 

'M',SB+CTNORM, : CDM-CDT AB 

• 

t 

MATCH. 



700D 

53^FE0Aa 

OB 

'S0',S6+CTN0RM, iCDS-CDTAB 

• 

r 

SOUNDS. 



70E1 

52E006 

DB 

'R', SB+CTNORM, :CDR-CDTAB 

• 

> 

REMARK. 



7DE4 

5041E046 

DB 

'PA'» SB+CTNORM* JCDW-CDTAB 

• 

r 

PAUSE. 



70F6 

5 9 E 0 0 2 

09 

'Y',SB+CTNOPM, SCO Y -COTAR 

m 

f 

TYPE IF 

YES. 


70EB 

4EE004 

08 

'N',SB+CTNORM,:CDN-CDTAB 

• 

r 

TYPE IF 

NO. 


70EE 

504F53E054 

D6 

'POS',$B+CTNORM, :CDPOS-COTAB } 

POSITION 

• 


7D p 3 

53544F50A0 

DB 

'STGP',SB+CTRUN, iCDSTP-CDTAR } 

STOP. 



7DF9 

5345545045 

DB 

'SETFEN',SB+CTNORM,jCDSTC- 

CDTA8 

} SET COLOR. 


7E01 

5345544C45 

DB 

'SETLET',SB+CTNORM, sCDSTL- 

COT AB 

? SET 

LETTERS 

COLOR 

7E09 

5343524F4C 

DB 

# SCR0LL',S8+CTB0TH, iCOSCR- 

CDTAB 

i SCROLL 

SELECT, 


7 E 1 1 

5353415645 

DB 

'SSAVE'f SB+CTNORM, :CDSSA-CDTAB 

; SCREEN 

SAVE, 


7E18 

554C4F4144 

DB 

# SLOAD',SB+CTNORM, sCOSLO-CDTAB 

? SCREEN 

LOAD. 


7E1F 

00 

DB 

0 


? END OF 

TABLE. 



i 

c 

< 

m 
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# 

c 

i 

# 


7E44 3E 308 0 0 A 
7£48 3C30800C 
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7 SUBCOMMAND TABLES 


there can be up tc i28 subcommand tables. 


7 THE STRUCTURE OF EACH IS IDENTICAL TO THE COMMAND TARLF. EXCEPT: 


7 

7 

7 


THE 'OFFStT' BYTE CAN REPRESENT A 'VALUE', WITH THE 
CALLER DECIDING WHICH. 


7 The CALLER SELECTS WHICH SUBCOMMAND TABLE BY SETTING ON INDEX 
TO THE TABLE ADDRESS FROM 'SBCTAB'. 



= 7E20 

SBCTAB 

= * 


= 0000 

OPTAPX 

= ★-SBCTAB 

7E20 

347E 


DW OPTAB 


= 0002 

UNTABX 

= ★-SBCTAB 

7 £22 

677E 


DW untab 


= 0004 

gtabx 

= *-SBCTAB 

7t24 

7o7E 


Da GTAB 


= 0006 

PCTABX 

= ★-SBCTAB 

7E2o 

7 0 7 F 


Dw PCTAB 


= 0008 

UPDWNX 

= *-SBCT AB 

7E28 

E 1 7 F 


Dw UPDTAB 


= 0 0 0 A 

ONOFFX 

= ★-SBCTAB 

7E2 A 

EC7F 


DW 0 N F T A P 


= OOOC 

LTTABX 

= ★-SBC TAB 

7E2C 

F67F 


Dw ltrtab 


= OOOE 

EDTABX 

= ★-SBCTAB 

7E2E 

OD80 


DW EDGTAP 


= 0010 

SCTABX 

= ★-SBCTAB 

7E30 

2880 


Dw SCRUB 


= 0012 

wltabx 

= *-SBCTAB 

7E32 

3780 


Dw W A L L T 6 


- 7E34 

OPTA6 = 

* 

7 £ 3 4 

208000 


03 ' + ' , SB , 

7E3 7 

2D8002 


DB ' - ' , SB , 

7 E 3 A , 

2 F 6 0 0 4 


DB V',SB, 

7E3D 2 A 8 0 06 


DB 

7t 40 3C3E8008 


DB SB 


7 BASE ADDRESS OF SUBCOMMAND TABLE ADDRESSES. 
7 NUMERICAL/RELATONAL OPERATIONS (BINARY). 

UNARY OPERATORS. 

GRAPHICS SUBCOMMAND TABLE. 

PEN COLOR TABLE. 

UP/DOWN TABLE. 

ON/OFF COMMAND TABLE. 

LETTERS COMMAND TABLE. 

EDGE COMMAND TABLE. 

? SCROLL OPTION TABLE, 

; MIL OPTION TABLE. 

7 NUMERIC/RELATIONAL OPERATORS (BINARY). 


DB '>s',SB, :CDGE-SBDTAB 
Do '<s ' , SB , :CDLE-SBDTA8 


7E4C 

3D800E 

DB 

's', SB, : CDEQ-SBDTAB 

7 E4F 

3E8012 

DB 

' > ' , SB , sCDGT-SBDTAB 

7ES2 

3C8010 

06 

'<',SP, :CDLT-SBDTAB 

7E55 

5C8014 

Dd 

BSLASH,SP, sCD^OD-SBDTAB 


ii 


7£55 5C8Q14 


Dd 


BSLASH,SB#:CPMQD-S6DTAB 
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7ES8 4i4E448oi6 


DB 

'AND'#SB# SCDAND-SBDTAB 

7t5D 4F528018 


DB 

'OR', SB, JCDOR-SBDTAB 

7E61 564F52801A 


OB 

'XOR',SB,:CDXOR-SBDTAB 

= 0000 


IF 

LOGGRP 

- 


DB 

'LAND'# SB, :CDLAN-S8DTAB 

- 


DB 

'LOR'# SB, : CDLOP-SBDT AB 



ENOIF 

7E66 00 


DB 

0 #* END OF TABLE, 

= 7E67 

UNTAB 

= * 

? UNARY OPERATORS. 

7E67 ?L/6 0 1 C 


DB 

'-'#SB, :CDUPI-SBDTAB 

7E6A 4E4F548G1E 


Dd 

'NOT', SR# SCDNOT-SBDTAB 

7t6F 4C4E4F5480 


DB 

'LNQT ' # SB # sCDLNO-SBDTAB 

7E7S 00 


DB 

0 ; END OF TABLE. 

- 7t7fe 

GTAB = 

★ 

? GRAPHICS SUB-COMPANO 

7E76 4452415754 


DB 

'DR A wTQ', SB, :CDDRT-SBDTA9 

7E7E 4452415700 


DB 

'DRAW', SB, : CDDRW-SbDTAB 

7E84 5455524E54 


DB 

'TURNTO ' # SB # iCDTNT-SBDTAB 

7E8C 5455524E80 


DB 

'TURN',S6, iCDTRN-SBDTAB 

7E92 474F544F80 


DB 

'GGTO',SB# sCDGOT-SBOTAB 

7E98 46494C4C54 


Dd 

'FILLTC'#SB#:CDFIT-SBDTAB 

7£ A 0 46494C4C80 


D8 

'FILL', SB# :CDFIL-S8DTAB 

7EA6 474F802C 


Dd 

'GO', SB, :CDGO-SBDTAB 

7EA A 4348414E47 


DB 

'CHANGE '#S9f!CDCHG-SBDTAB 

7EP2 50454E8032 


D6 

'PEN'# SB, : CDPEN-SBDTAB 

7EB7 434C454152 


DB 

'CLEARPEMS'# SB, : CDCLP-SBDT AB 

7cC2 434C454152 


Dd 

'CLEAR'#SB,:CDCLR-SB0TA8 

7EC9 5155495480 


DB 

'QUIT', SB# sCDEXI-SBDTAB 

7ECF 46554C4C80 


DB 

'FULL'#S8#:CDFUL-S8DTA0 
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7ED5 

53504C4954 

DB 

'SPLIT', SB, 

7EDC 

57414C4C0O 

DB 

'lA ALL ' , SB , * 

7EF2 

4844474500 

DB 

'EDGE', SB, S 

7E E8 

484F4D450O 

DB 

'HONE', SB, • 

7E5E 

4E4F525448 

DB 

'NORTH', SB, 

7fc c 5 

5^55525440 

DB 

'TURTLE', SB 

7EFD 

5348414445 

DB 

'SHADE', SB, 

7F04 

4D4F44450O 

DB 

'NODE', SB, : 

7 F 0 A 

424 1434B47 

DB 

'BACKGROUND 


7 F 1 6 

5345544680 

7 F 1 C 

5345544247 

7F23 

434C45414E 

7F2A 

46446024 

7F2E 

424E8050 

7F32 

52548028 

7F36 

4C548052 

7F3A 

534554504F 

7F42 

5^45504541 

7F4 A 

524F424F54 

7F51 

4559455380 

7F57 

5250454E80 

7F5Q - 

'J64P524E80 

7F63 5044805A 

7F67 5 

0558056 

7F6B 5 

0458056 

7F6F 0 

0 

9 

7F70 PC 


7F70 5245448042 

7F75 5945aC4C4F 


De 'SETH',SB, SCDTNT-SBDTAB 
DB 'SETBG',S6, ! CD8CK-SBDT AB 

OB 'CLFAN',SB, : CDCLR-S6DT A8 

DB 'FD',SB, :CODRW-SBDTAB 
Dd '6K',SB, :CDBK-SBDTAB 
DB 'RT',S3 , sCOTRM-SBDTAB 
DB 'LT',SB, sCDLTU-SBDTAB 
D8 'SETPQS',SB, : CDDRT-SBDT A8 
D6 'REPEAT', SB, s CDFPT-SBDT A9 
DB 'ROBOT', SB, ! CDRBT-SBOT AB 

DB 'EYES', SB, :CDEYS-SBDTAB 
DB 'RPEN',SB, SCDRPN-SBDTAB 
DB 'HOR.\',SB, jCDHRN-SBDTAB 
DB 'PD',SB, SCDPD-SBDTAB 

DB 'PU', SB, :CDPU-SBDTAB 

DB 'PE',SB, sCDPE-SBDTAB 

06 0 I END OF TABLE, 

s * ; PEN COLOR TABLE, 

DB 'RED # , SB , CRED 

Db 'YELLOfc # ,SB,CYELLO 


a. 
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7F70 

4 75245454E 


DB 

'GREEN', SB, $C6 

7 F 84 

424C554580 


DB 

'8LUE',SB,CBLUE 

7F8A 

424C41434B 


Pd 

'BLACK', SBrCBLACI 

7F91 

5746495445 


DB 

'WHITE', SB, $0E 

7P96 

4F52414E47 


DB 

'ORANGE', SB, $F4 

7 F A 0 

505552504C 


DB 

'PURPLE', SB, $52 

7 FAS 

4752415980 


DB 

'GRAY ', SB, $0 4 

7FAE 

53494C5645 


DB 

'SILVER ' , SB # $06 

7FB6 

474F4C4480 


DB 

'GOLD', SB, $28 

7 F8C 

50494E4B80 


DB 

'PINK', SB, $46 

7FC2 

4C4156454E 


DB 

'LAVENDER', SB, $6< 

7FCC 

42524F574E 


DB 

'BROWN', SB, $E0 

7FD3 

4245494745 


DB 

'BEIGE', SB, $FE 

7FDA 

4552415345 


DB 

'ERASE', S8,0 


= 7 F E 1 

updtab 

s * 


7 FE 1 

55508080 

PCTUP 

DB 

'UP ' , SB , PCUP 

7FF5 

444F574E80 

PCTDN 

D8 

'DOWN', SB, PGDN 

7FEB 

00 


DB 

0 


= 7FEC 

ONFTAB 

s * 


7FEC 

4F4E8001 


DB 

'ON',SB,KON 

7FF0 

4F46468000 


DB 

'OFF ' , SB » KOFF 

7FF5 

00 


DB 

0 


= 7FF6 

LTR7AB 

z * 


7F Fb 

554D414C4C 


DB 

'SMALL', SB, LSMLL 

7FFD 

4D45444955 


DB 

'MEDIUM', SB, L^ED 

8005 

4C41524745 


D8 

'LAPGE',SB,LLRG 

8 0 0 C 

00 


DB 

0 


= 8 0 OD 

EDGTAfa 

s * 
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D1 sPILOT, 


; UP/DOWN TABLE. 

? END OF TABLE. 

} ON/OFF COMMAND TABLE. 


} END OF TABLE. 

? LETTERS COMMAND TABLE. 


? END OF TABLE, 

; EDGE COMMAND TABLE. 
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POOD 

5752415080 


DB 

'WRAP',SB,EWRAP 

8013 

484 14C5480 


DB 

'H ALT ' , SB , EH ALT 

8019 

424F554E43 


DB 

'BOUNCE', SB, EBNC 

8021 

4652454580 


DB 

'FREE',SB,£FREE 

8027 

00 


DB 

0 


= 8028 

SCRLTB 

T ★ 


8 028 

434F4 1 5253 


DB 

'COARSE', SB, 0 

8030 

46494E4580 


DB 

'FINE', SB, IFF 

8036 

00 


DB 

0 


= 8 0 37 

WALL T6 

s * 


8037 

4E4F4E4580 


DB 

'NONE', SB, 0 

8 0 3D 

00 


DB 

0 


Pege 41 

D1 SPILOT. 


; END OF TABLE, 

; SCROLL OPTION COMMAND, 

; WALL OPTION 
? END OF TABLE. 
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7 

; command data table 

; 

? CONSISTS OF N WORDS, THE INDICES TO THIS TABLE ARE 

7 CONTAINED IN 'CTAB'. THE TOTAL NUMBER OF BYTES IN THE TABLE MAY NOT 
7 EXCEED 128. 

I 

7 NOTES THIS OFFSET IS USED TO ' TOKEN I ZF ' THE COMMAND. 

7 THE 'MSB' FLAGS THAT THE COMMIAND IS IN 'USHTAB', 

7 THE USER EXTENDABLE COMMAND TABLE. 

7 (JFE AND SFF ARE RESERVED.) 

7 

? 'CDTAB' is SEGMENTED FOR 'l CONTINUATION' IN RUN MODE. 

7 ENTRIES BEFORE 'CLNCNT' ALLOW 's CONTINUATION'? 

7 OTHER ENTRIES DU NOT. 


= 8 0 3E CDTAB r * ; COMMAND DATA TABLE BASE ADDRESS. 

7 ': CONTINUATION' IS VALID IN RUN MODE. 


803t 

E 1 83 

: CDT 

DW 

XTYPE 

8040 

6684 

S CD Y 

Dw 

XTYPtP 

8042 

6E84 

s CON 

Da 

XTYPE3 

8044 

7484 

:CDR 

Dw 

X REM 


7 ': CONTINUATION' IS NOT VALID IN RUN MODE. 



= 0008 

CLNCNT 

= 

★-CDTAB 

8046 

A 79 0 

: CDLST 

Dw 

XLIST 

8048 

6 F 9 1 

JCDDEL 

DW 

XDELET 

804a 

A688 

JCDDMP 

DW 

XDUMP 

804C 

F2S4 

: CDRUN 

DW 

XRUN 


= 0000 


IF 

DOS 

- 


: CDDOS 

DW 

XDOS 




ENDIF 

804E 

FC8F 

SCDLOD 

D W 

xload 

8050 

2L90 

sCOMRG 

Dw 

xmerge 

8052 

3890 

s CDAPP 

DW 

xappnd 

8054 

CBPF 

i CDS A V 

DW 

XSAVE 

8056 

1391 

! CDAUT 

Dw 

X AUTO 

8058 

FF91 

SCDREN 

DW 

XREN 

805 A 

IFeA 

: CDCOL 

DW 

XCGLRS 

805C 

A48 A 

SCDENS 

Dw 

XENVIR 

S05E 

096 A 

scdpal 

DW 

XPALET 

8060 

C38E 

J CDDIR 

DW 

XDIR 

8062 

068 F 

S CDCOM 

Dw 

XCOMM 

8064 

D38 7 

SCDCAL 

DW 

XCALL 

806b 

H ABF 

tCDTRC 

Dw 

XTRACE 

806e 

868 F 

JCDCSS 

DW 

XCASS 

806A 

9C8F 

ICDSNC 

Dw 

XCSYNC 

8 0 6 C 

4385 

s CDA 

Dw 

XACCPT 

806L 

4b8b 

JCDC 

DW 

XCMPUT 

«070 

E 98 7 

: CDU 

DW 

XUSE 
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D 1 : p I LOT , 


80 72 

C 2 8 4 

: LDt 

Da 

XEND 

8074 

7680 

JCDJM 

On 

XJRPR 

8076 

OF00 

ICDJ 

Da 

XJRP 

8078 

1 78C 

CDC 

DA 

XGRAPH 

807a 

2C07 

JCDMSX 

dw 

XMATSX 

807i. 

3287 

:COMS 

On 

XMASP 

807E 

7086 

:CDMX 

0 * 

X^ATX 

80« 0 

6 CP 6 

jcom 

Da 

X^ATCH 

8092 

CA 8 C 

:CDS 

DA 

X SOUND 

8084 

548F 

:CDw 

Da 

X A A I r 

8086 

B987 

: CONE/. 

Da 

XNEA 

8088 

A087 

: CDNA v 

Oh 

XNEa V 

808 A 

218B 

: CDTV 

Da 

XTV 

80 8 C 

6 A 6 D 

»CDIN 

DA 

XIN 

80SE 

C40D 

: CDUUT 

Da 

XOUT 

8000 

F76D 

:CDOON 

Da 

XDONL 

0092 

7 A 6 4 

: CDP03 

Oa 

XP0S 

8094 

31 A4 

: CDSTC 

DA 

XSETP 

809b 

26 A 4 

:cdstl 

Da 

XSETL 

809Q 

4 A 9 0 

SCOLTR 

DA 

xlettr 

809A 

7 7 8 F 

ICOSPO 

DA 

XSPEED 

8 0 9C 

3465 

SCDCON 

D A 

XCONT 

8091 

ED84 

SCDSTP 

Da 

X STOP 

8 0 A 0 

5766 

:CDax 

Da 

X ACC X 

80A2 

6486 

: C D AK 

Da 

XACCK 

8 0 A 4 

7F90 

ICDSCR 

Dy 

XSCRGLL 

80 A 6 

068E 

JCDSSA 

Dk 

XSSAV 

0OA8 

5E6E 

! CDSLQ 

Da 

XSLOD 


= 006C 

TABLEN 

SET 

★-CDTAB 


= 006C 

USROFF 

EGU 

TABLEN 

= 0 092 

USRMAX 

EUU 

TKNCNT-U: 


? USER TOKENS START AT THIS NUMBER. 

? USER TABLE OFFSET MAY NOT EXCEED USRMAX. 


I 


PILOT -- H.e 
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D 1 : PILOT. 


; SUBCOMMAND DATA TABLE 
? 

! CORRESPONDING DATA TABLE 



= 8 0 A A 

SbDTAB 

s * 


80 Aa 

32RC 

JCDPLS 

D W 

DADDI 

80 AC 

U29C 

: CDSUB 

DW 

DSUBI 

80 A E 

879C 

: CDDI V 

D W 

DD1VI 

80B0 

549C 

JCDMUL 

Dw 

DMULI 

8002 

259D 

• CONE 

DW 

DNETI 

8034 

3C9D 

: CDGE 

DW 

DGETI 

8086 

4390 

: COLE 

DW 

DLETI 

8006 

1E9D 

: CDEG 

Dw 

DEGTI 

80BA 

3590 

: COLT 

Dw 

DLTTI 

60 9C 

2C9D 

: C DGT 

DW 

DGTTI 

8 0 BE 

E59C 

: CDMOD 

D W 

DMODI 

80C0 

6690 

: CDAND 

DW 

D AND I 

80C2 

779D 

: CDOR 

DW 

DOR I 

8 0C4 

eo9D 

JCDXOR 

D W 

DXORI 


= 0000 


IF 

LOGGRP 

- 


! CDLAN 

DW 

DLANDI 

- 


! COLOR 

DW 

DLCPI 




ENDIF 



4 

4 

4 


; SUBCOMMAND DATA TABLE BASE ADDRESS. 


80C6 

F19C 

J C DUM I 

OW 

DNEGI 

80C8 

959D 

JCDNCT 

Dw 

DN0T1 

8uCA 

5790 

: CDLN0 

DW 

DLNOTI 

80CC 

B 5 A 1 

: CDDRT 

Dw 

GDRwJO 

80CE 

0FA2 

ICDDRW 

DW 

GDRW 

8000 

E 9 A 1 

: CDTNT 

DW 

GTRNTO 

8 0 D 2 

57A£ 

SCDTRN 

Dw 

GTRN 

6 0 04 

69 A 1 

: CDGOT 

D w 

GGOTO 

BoDfc 

13A2 

: CDGO 

DW 

GGC 

8008 

B 1 A 1 

: CDF I T 

DW 

GFILTO 

80 DA 

^5A2 

SCDFIL 

DW 

GF II 

8 0 DC 

75A2 

: CDPEN 

DW 

GPEN 

800E 

E2A2 

;cdchg 

DW 

GCHNGE 

80E0 

ADA3 

: CDCLP 

D W 

GCLPPN 

80E2 

A0A3 

: CDCLR 

D W 

GCLEAR 

8GE4 

91 A3 

! COE X I 

DW 

GEXI1 

80E6 

79 A 1 

: CDFUL 

DW 

GFULL 

80F8 

96 A 1 

SCDSPT 

DW 

GSPLIT 

80 E A 

53 A3 

! C D W A L 

DW 

GWALL 

80EC 

DBA 3 

! C D E D G 

Dw 

GEDGE 

80EE 

B 7 A 3 

: CDHOM 

DW 

GHOME 

8UF0 

CO A3 

SCDNRT 

DW 

GNORTH 

80F2 

F6A3 

: CDTRT 

DW 

GTUR7L 

8 0 F4 

1 A A3 

: COSHO 

Dw 

GSHADE 

80F6 

30 A 1 

: CDMDE 

0 w 

GMODE 

80F8 

C6A2 

: C D B C K 

DW 

GBACK 

8 0 F A 

FbA 1 

:CDBK 

Dw 

GBK 






— 
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1 

1 
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80 FC 

4CA2 

:CDLTU 

DW 

GLT 

80 FE 

B98C 

: CDRPT 

OH 

GREPT 

8100 

PDA2 

: CDPE 

OH 

GPE 

8102 

ABA2 

: CDPU 

DIN 

GPU 

8104 

B 4 A £ 

:CDPD 

dh 

G p D 

8106 

5D63 

: CDRBT 

OH 

RONOFF 

8108 

8983 

SCDEYS 

DH 

REYES 

810 A 

9 A03 

:CDRPN 

DH 

RP£Ni 

8 1 OC 

B3B3 

SCDHRN 

Dw 

RHORN 


= 0064 

TABLEN 

SET 

*«SB 
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D1 :PILOT. 


? THIS MUST NOT EXCEED 0100 HEX. 


ASSERT TABLE N<$100 
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SICE PROC 

; 

; COND -- conditional execution processor 

f 

; calling sequence: 

9 

i 'INLN' POINTS TO STATEMENT TO 8E PROCESSED 

? Y = INDEX TO START OF CONDITION. 

'• 'MATCHF' = 0 (FALSE) OR $ F F (T»UE) , RESULT OF PPICR 'M' COMMAND . 

• 

9 

? JSR COND 

9 

; Y = INDEX TC ':' IN STATEMENT + 1. 

? 'EXECF' = 0 IF STATEMENT IS NOT TO BE EXECUTED. 

9 

? NOTE: GOES TC 'PSTOP' ON ERROR. 

; 


? NOTE: 'LOOK AHEAD' CODE FOP 




; 

• 

WITH ' 

Y 9 OP 'N ' . 

ftlOE 

A9F F 

9 

CQND 

LD A 

AJFF 

8110 

8D0605 


STA 

EXECF 

8113 

20139F 


JSR 

SLB 



; VALID 

CHARACTERS ARE Y 

8116 

0920 


ORA 

ALC 

8118 

C979 


CMP 

A'Y'+$20 

81 1 A 

D005 A 8 1 2 1 


BNE 

:CN01 0 

8 1 1 C 

A5FE 


LD A 

MATCHF 

6 1 1 E 

4C3581 


JMP 

:CN015 

8121 

C96E 

:CNOio 

CMP 

A'N'+S20 

8123 

0017 A 8 1 3C 


BNE 

: C N 0 3 0 



; SPECIAL CASE 

' ( IMPLIED 

8125 

C8 


INY 


8126 

B 1 8 0 


LDA 

(INLN) ,Y 

8126 

88 


DEY 


8129 

0920 


ORA 

ALC 

8126 

C96F 


CMP 

A'0'+J20 

8 1 2D 

F02C* A 8 1 5C 


BED 

:CN070 

8 1 2 F 

A5FE 


LDA 

MATCHF 

8131 

F 0 05 A 6 1 38 


6EQ 

: CNO 1 7 

8133 

A900 


LDA 

AO 

8135 

8 D 0 6 0 5 

: C N 0 1 5 

STA 

EXECF 

8138 

C6 

: C 0 1 7 

INY 


8139 

20139F 


JSR 

SLB 

813C 

B 1 8 0 

:CN030 

LDA 

( INLN) , Y 

813E 

C928 


CMP 

A ' ( ' 


GRAPHICS SUBCOMMANDS BEGINNING 

? PRESET EXECUTE FLAG. 

; GET FIRST CHAR OF CONDITION FIELD. 

? FORCE LOWER CASE. 

; CHECK FOR 'Y' OR 'N' FIRST, 

; 'Y' -- IF 'MATCHF' IS TRUE, RESULT IS TRUE. 

; NOT ' Y ' OR 'N ' , 

NORTH' 

; POINT INDEX TO 'N ' , 

? FORCE LOWER CASE, 
f LOWER CASE 'O'? 

? YES -- TRY 'NORTH', 

; 'N' -- if 'MATCHF ' IS FALSE, RESULT IS TRUE. 


; GET NEXT NON-BLANK CHARACTER. 


SEE IF ARITHMETIC EXPRESSION. 
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8140 

Do 1 S *8157 


8NE 

: CN050 

8142 

? 0 0 F A 0 


JSR 

EXPP 

8145 

A594 


LD A 

EXPSTK+ 1 

8147 

30 Oe *8 1 4F 


BMI 

: CN032 

814 9 

D009 *8154 


BNE 

: CN040 

8146 

A 593 


LD A 

EXPSTK 

8 1 4 D 

0005 *8154 


BNE 

; C N 0 4 0 

8 1 4 p 

AVOO 

: CN032 

LD A 

AO 

8151 

eD0605 


STA 

EXECF 

8154 

20139F 

: C N o 4 0 

JSR 

SLB 

8157 

C93A 

: CN050 

CMP 

P's' 

8159 

0002 *8150 


8NE 

; CNQ8 0 

8156 

ce 


INY 


815C 

60 

J C N 0 7 0 

RTS 




; '{-REQUIRED' 

ATTRIBLTE 

8150 

A 592 

:CN080 

LD A 

EXEC 

3 1 5F 

DO FB *8 1 5C 


BNE 

:CNQ7Q 

8161 

A 9 1 0 


LD A 

ACTCLN 

8163 

2C1005 


BIT 

CTA0AT 

8166 

F0F4 *8 1 5C 


BEG 

s C N 0 7 0 

8168 

86 


DEY 


8169 

A902 


LD A 

ACNDERR 

81 66 

4 C 3 A 7 A 


JMP 

PSTOP 
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01 jPILOT. 

; NO -- ALL DONE, 

? EVALUATE EXPRESSION IN PARENS. 

; SEE IF RESULT > ZERO. 

; NO -- NEGATIVE. 

; YES -- POSITIVE & NON-ZERO. 

? NOT SURE -- TEST LSB . 

; POSITIVE & NON-ZERO. 

? NO -- CONDITION FALSE. 

? GET NEXT NON-BLANK CHARACTER. 

} COLON? 

? NO. 

? SKIP OVER 

ONLY AVAILABLE DURING SYNTAX CHECK. 

; CHECK 'j REQUIRED'? 

? NO. 

? ':' REQUIRED FOR THIS COMMAND? 
? NO, 

; YES -- ERROR, 
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D 1 : P I L 0 T . 

8l8£ 


PROC 






i 

? A TOR -- FIND, 

• 

IDENTIFY 

& EVALUATE THE NEXT ATOM IN THE STATEMENT LINE. 



9 

7 CALLING SEQUENCE! 





t 

7 

' I NLN ' 

POINTS TO 

THE 

STATEMENT LINE. 



; 

Y s 

INDEX TC END 

OF 

PRIOR ATOM + 1. 



7 

7 

JSR 


ATOM 





7 

• 

8NE 


SYNTAX ERROR 




9 

7 

A = 

ATOM IDENTIFIER 

CODE 



• 

9 

Y = 

INDEX TC END 

OF 

ATOM ♦ 1 COR BEGINNING OF ATOM FOR TEXT TYPE). 



• 

9 

'NUMBER 

' = VALUE 

OF 

NUMERIC CONSTANT OP NUMERIC VARIABLE IF 'EXEC' 



7 

'POINT' 

= ADDRESS 

OF 

NUMERIC VARIABLE OR OPERATOR ROUTINE IF 'EXEC 



7 

'NP' 

POINTS TO STRING VARIABLE NAME. 



• 

9 

'DP' 

POINTS TC STRING VARIABLE VALUE CIF DEFINED). 

ei<se 

?0139F 

9 

ATOM 

JSR 


SLB 


; SKIP LEADING BLANKS, IF PRESENT. 



; +** 

internal 

RE-ENTRY POINT *★* 

8171 

20 F 99 1 

AT0M2 

JSR 


CHKTRM 


; NULL ATOM (STATEMENT TERMINATOR)? 

8174 

F 0 38 A 8 1 AE 


BEQ 


! AT 100 


? YES. 

8176 

C9?3 


CMP 


A'#' 


7 NUMERIC VARIABLE? 

8178 

F 039 A 8 1 B3 


BEG 


! A T 2 0 0 


? YES. 

8 1 7 A 

C94 0 


CMP 


A 'S' 


; POINTER? 

817C 

0003 A 8 1 8 1 


0NE 


! AT002 


? NO. 

817E 

4C1382 


JMP 


: A T 2 5 0 


? YES. 

8181 

C 924 

! ATQ 02 

CMP 


#'$' 


? STRING VARIABLE? 

8183 

D 0 03 A 8 1 88 


BNE 


J AT003 


? NO. 

818b 

4C5182 


JMP 


I AT3 0 0 


; YES. 

8188 

C925 

! A T 0 0 3 

CMP 


*'%' 


; JQYSTICK/PADDLE/LIGHTPEN? 

818A 

0003 A 8 1 8F 


BNE 


: ATO 05 


? NO. 

8 1 SC 

4Cr 7 82 


JMP 


! A T 7 0 0 


i YES. 

018F 

20839E 

I AT005 

JSR 


CNUMBR 


; NUMERIC LITERAL? 

8192 

P 0 03 A 8 1 97 


BCS 


! AT010 


; no 

8194 

4C9F82 


JMP 


• A T 4 0 0 


; YES. 

8197 

A200 

: AT010 

LDX 


AUPTABX 


! SPECIAL OPERATOR? 

8199 

20AB7C 


JSR 


SBCMAT 



819C 

0003 A 6 1 A 1 


BnE 


: AT020 


; NO. 

8 1 9£ 

4CAC82 


JMP 


: AT60U 


? YES. 

8 1 A 1 

6180 

: AT020 

L DA 


(1MN) ,Y 


? RESTORE CHAR, 

8 1 A3 

209 1 9E 


JSR 


CLETTR 


; CONTEXT DEPENDENT TEXT? 


L 

i 
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( 

* 

t 

% 


91 A 6 

8003 A 8 1 AB 

BC8 

: AT 099 

• 

9 

NO. 

81 Att 

9CA882 

JMP 

: ATSOO 

• 

9 

YES. 

81 A8 

A90 2 

: AT 099 LD A 

AATMERR 

m 

9 

NONE OF THE ABOVE -- ERROR, 

81 AD 

60 

RTS 


• 

9 

RETURN (MTH CC SET. 



? NULL ATOM -- 

<EOL> 



81 At 

A 90 1 

; AT 1 0 0 LD A 

ANULL 



5180 

4LA983 

JMP 

ATMRET 





; NUMERIC VARIABLE -- 9<ANY NUMBER 

OF ALPHANUM>. 

5183 

ce 

SAT200 iny 




8169 

8180 

LD A 

(INLN) , Y 

• 

9 

CHECK CHARACTER AFTER '#'. 

8186 

80869E 

JSR 

CKEOA 



8189 

FOFO A 8 1 A8 

BEG 

: AT099 



8 IPS 

A580 

LD A 

I NLN 

m 

9 

SET NAME POINTER TO NAME. 

8180 

85BE 

ST A 

NP 



8 1 BP 

A 88 1 

LD A 

INLN+1 



5 1 C 1 

65BF 

STA 

NP + 1 



81C3 

8 9 C 0 

STY 

NP + 2 



8 1 C 5 

20C69E 

JSR 

SCEOA 

• 

9 

SCAN TO END OF ATOM, 



; SKIP NUMBER I C 

VARIABLE 

LOCKUP IF 

NOT (EXEC). 

eica a 59a 

LD A 

FXEC 



0 1 C A F0*3 A 820F 

BEG 

: AT2P0 



8 ICC 89C1 

STY 

NP + J 

? 

SAVE LINE INDEX 


; ENTRY to 'FIND' A "JUST - DEFINED" VARIABLE. 


61CE 

20AD9E 

JAT205 

JSR 

SETSVL 

t 

SET LIST POINTER TO VARIABLES. 

810 1 

A 99 0 


LD A 

* atrnlm 

) 

'NUMERIC' ATTRIBUTE. 

8103 

8066 05 


STA 

ATRTYP 



81D6 

20CE98 


JSR 

SFIND 

t 

FIND VARIABLF IF DEFINED. 

8109 

FOlb A 8 1 F6 


B£Q 

: AT210 

t 

defined. 

8 1 Db 

A900 


LOA 

AO 

} 

DATA s 00. 

8100 

8586 


STA 

NUMBER 



8 1 OF 

8569 



Nu^bERe 1 



8 1 E 1 

85C9 


STA 

DPf2 





f as* 

LDA 

* HIGH NUMBER 



8 1 E3 

85C3 


STA 

OP^ 1 



81E5 

A9B8 


LOA 

A LCfc NUMBER 



8 1 E7 

85C2 


STA 

CP 



8 1 F9 

A902 


LDA 

#2 



8 1 EB 

85C5 


STA 

CPe3 



8 1 EO 

200599 


JSR 

SINSRT 

I 

INSEPT NUMERIC (VALUE * 0). 
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8 1 F 0 

0069 A 8lAB 


BNE 

: AT099 

eiFa 

A4C1 


LDY 

NP + 3 

*1 Fa 

DODb A 8 1 CE 


BNE 

: AT205 

8 1 p 6 

A236 

: AT210 

LDX 

APOINT-DTAB 

8 I F ft 

A 0 42 


LDY 

3DP-DTAB 

8 1 F A 

? 0 4 5 9 A 


JSR 

DMOVI 

81F0 

A5C4 


LDA 

DP + 2 

8 1 F F 

20049D 


JSR 

DADDS 

8202 

A 0 0 U 


LDY 

#0 

8204 

b 1 Bb 


LDA 

(POINT ) , Y 

820b 

85ee 


STA 

NUMBER 

820ft 

C8 


I NY 


8209 

B1B6 


LDA 

(POINT) , Y 

8206 

85B9 


STA 

NUMBER + 1 

82 OD 

A4C1 


LDY 

NP + 3 

820 F 

A904 

: AT220 

LDA 

ANVAR 

8211 

D072 A 8285 


BNE 

: AT340 




; POINTER (INDIRECT REFERENCE 

8213 

C 8 

SAT250 

INY 


8214 

B 1 8 0 


LDA 

(INLN),Y 

821b 

0920 


ORA 

#LC 

8218 

C962 


CMP 

A 'B ' + $20 

821 A 

08 


PHP 


82 1 B 

D001 A 82 1 E 


BNE 

: AT255 

82 1 D 

C8 


INY 


82 IE 

6180 

: AT255 

LDA 

(INLN)rY 

822 0 

207181 


JSR 

AT0M2 

8223 

D 028 A 824D 


8NE 

! AT290 

8225 

290b 


AND 

anvar+num 

8227 

F 024 A 824D 


6EQ 

: AT290 

8229 

A 568 


LDA 

NUMBER 

822B 

85B6 


STA 

POINT 

822D 

A5e9 


LUA 

NUMBER + 1 

822F 

85E7 


STA 

POINT+1 

8231 

84A 1 


STY 

TEMP 

8233 

A 0 0 0 


LDY 

AO 

8235 

B1B6 


LDA 

(POINT), Y 

8237 

85B8 


STA 

NUMBER 

8239 

28 


PLP 


82 3 A 

0006 A 8242 


BNE 

: AT260 


8 4 P 9 STY NUMBER* 1 


8*30 


>• 


NO ROOM. 


Pape 50 

D 1 : PILOT 

} ERROR -- 

; SEARCH AGAIN -- FIND IT. 
} CbRA), 

ADDRESS OF VALUE ... 

... IN 'POINT'. 

VALUE IN 'NUMBER'. 


? RESTORE LINE INDEX. 

} (BRA) TO ' ATMRET ' . 

-- @ [6] <NIJMER I C QUANTITY> 

; EXAMINE CHARACTER AFTER 'S'. 

; FORCE LOWER CASE. 

; POINTER TO BYTE? 

? SAVE ANSWER. 

; NO -- POINTER TO WORD. 

? YES -- SKIP OVER 'B', 

; GET CHARACTER FOR RECURSIVE CALL. 

? SEE WHAT FOLLOWS *** RECURSIVE CALL ***. 
; ERROR. 

? MUST BE NUMERIC • 

; ERROR. 

; RESULT IS ADDRESS OF DATA. 

? SAVE LINE INDEX. 

; GET DATA VALUE NOW. 


; POINTER TO BYTE? 

; NO -- POINTER TO WORD. 


; YES 


MSB = 0, 
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823E 

* 98 0 


LD A 

#BPTR 

; 

TYPE 5 POINTFR TO BYTE. 

824 0 

0007 A 8249 


8NE 

i AT270 

; 

CbRA) . 

8242 

Cb 

: AT260 

INY 




8243 

B1P6 


L D A 

(POINT) , Y 

; 

GET MSB OF DATA KQRD . 

8245 

85B9 


STA 

NUM0ER+1 



8247 

A 9 0 4 


LDA 

ANVAR 

f 

TYPE s POINTER TO WORD, 

8249 

A 4 A 1 

: AT270 

LD Y 

TEMP 

• 

f 

RESTORE LINE INDEX. 

8240 

DO 38 A 8285 


BNE 

: AT340 

• 

9 

(BRA) SKIP TO NORMAL RETURN. 

8240 

28 

J AT2R0 

PLP 


• 

9 

CLEANUP STACK BEFORE RETURN. 

824E 

4CAB81 

: A T299 

JMP 

* AT 099 

• 

; 

ERROR RETURN (EXTENDED BRANCH) 


STRING VARIABLE -- $<ANY NUMBER OF ALPH ANUM> 


# 

c* 

c 

0 

I 


8251 ca 


SAT300 INY 


8252 B 1 8 0 

LDA 

( INLN) , 

8254 C924 

CMP 

n 's ' 

925b F 0 3 0 A 6288 

BEG 

; AT350 

8258 20B69E 

JSR 

CKEOA 

8256 FOFl A 824E 

BEQ 

: AT299 

825D A58 0 

LDA 

INLN 

825 F 856E 

STA 

NP 

8261 A58 1 

LDA 

INLN+1 

8263 850F 

STA 

NPt 1 

8265 84C 0 

STY 

NP + 2 

8267 20Cb9E 

JSR 

SCEOA 

826 A 8 4 C 1 

STY 

NP + 3 

826C 98 : AT320 

T Y A 


8260 46 

PHA 


826E 20AD9E 

JSR 

SETSVL 

8271 A 98 0 

LDA 

8ATRSTR 

5273 8D6605 

STA 

A TRT YR 

8276 20C £98 

JSP 

SFIND 

8279 D 0 06 A 8281 

BNE 

: AT330 

8278 68 

pla 


827C AS 

tay 


8270 A908 

LOA 

ASVAR 

827F D004 A 8285 

BNE 

: AT340 

8281 68 : AT330 

PLA 


8282 A 8 

TAY 


8283 A 9 1 0 

LOA 

BtSVAN 


82*5 ^CA 983 


:AT340 JMP 


8288 205182 JAT350 Ji>R 

8288 DO 1 1 A 829E 8NE 


A T M RET 

: AT30C 
: AT360 


; EXAMINE CHARACTER after 'S' 

; STRING INDIRECTION? 

? YES. 

? NO -- STRING NAME ERROR? 

? YES. 

; NO -- SET NAME POINTER TO NAME 


i SCAN TO END OF ATOM. 

; SAVE END INDEX. 

? SAVE LINE INDEX. 

; SET LIST POINTER TO STRING VARIABLES. 

; 'STRING' ATTRIBUTE. 

; FIND VARIABLE IF DEFINED. 

? UNDEFINED. 

; RESTORE LINE INDEX. 

} DEFINED STRING VARIABLE. 

; (BRA) TO 'ATMRET'. 

; RESTORE LINE INDEX. 

; UNDEFINED STRING VARIABLE, 

; *** SKIP BRANCH POINT **+ 

; INDIRECTION -- GET NAME *** RECURSIVE CALL ***. 
1 ERROR. 
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Dl :PILOT. 

828D 

C 9 1 0 

CMP 

A U S V A R 

• 

9 

UNDEFINED STRING? 

82 3F 

F0F4 *82 85 

BEQ 

: AT340 

• 

9 

YES -- ALL DONE. 

82° 1 

84 A 1 

STY 

TEMP 

• 

9 

DEFINED -- USE DATA AS NAME FOR TARGET 

8293 

A23E 

LDX 

ANP-DTAB 



8295 

A 0 4 2 

LDY 

ADP-CTA8 



8297 

2C3B9A 

JsR 

PMOVE 



829A 

A4 A 1 

LDY 

TEMP 



829C 

DOCE A B26C 

BNE 

: AT320 

t 

(BRA) NOW GET STRING. 

829E 

60 : AT360 

RTS 





NUMERIC LITERAL — <CIGIT><ANY NUMBER OF DIGITS> 


82 9F 

A20 0 

S AT400 

LDX 

AINLN-DTA8 

• 

9 

POINT TO POINTER. 

82 A 1 

2UBb9D 


J3R 

ASCDEC 

• 

9 

CONVERT TO BINARY, RESULT TO 'NUMBER'. 

82 A4 

A 902 


LDA 

ANUN 



82 A 6 

DODD *8285 


BNE 

S AT340 

f 

(BRA) TO 'ATM RET', 



? TEXT 

-- <LETT£R>< ANY NUMBER 

OF 

CHARACTERS> 

82 A 6 

A 9? 0 

: A T 5 0 o 

LDA 

ATEXT 



82 A A 

D0D9 *8285 


BNE 

IAT340 

? 

(6RA) TO ' ATMRE T ' • 



? OPERATOR -- 

<OPERATOR> 



82 AC 

BDAA80 

: AT600 

LDA 

S8DTAB,X 

• 

9 

GET OPERATE ROUTINE ADDRESS. 

82 A F 

8506 


STA 

POINT 



82B1 

BDAB80 


LDA 

SBDT AB + 1 , X 



8204 

85B7 


STA 

POINT+1 



82 86 

A 94 0 


LDA 

AGPR 



8288 

D0C6 *8285 


BNE 

J AT340 

9 

9 

(BRA) TO 'ATMRE T'. 



? EVALUATE EXPRESSION -- %(<NEXP> 

) 

829 A 

2 0 0 F A 0 

: AT620 

JSR 

EXPP 

• 

9 

EVALUATE NEXP IN PARENS. 

828D 

A593 


LDA 

EXPSTK 

} 

PASS BACK RESULT. 

82BF 

A694 


LDX 

EXPSTKt 1 



82C 1 

4 C 6 2 8 3 


JMP 

: AT7ei 





; CONTROLLERS 

-- %<P! J 1T><NUMBER> 

OR %<X!YJZ!A1HIV1LIMIF> OR X<S1SRIST> 

82C4 

4CA681 

: AT720 

JMP 

: AT099 

} 

ERROR. 

82C7 

C6 

: AT700 

I IN V 


9 

9 

SKIP OVER '%'. 

82 C 8 

Bieo 


LDA 

( INLN ) , Y 

9 

9 

GET NEXT CHARACTER, 

82CA 

C928 


CMP 

A ' ( ' 

9 

9 

EVAL? 

82CC 

FOEC *82BA 


BEQ 

! AT620 

f 

YES. 
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82CE 0920 

ORA 

#LC 

8200 C970 

CMP 

A 'P' + i20 

8202 F 035 A 8309 

BEQ 

: AT730 

82^4 C9bE 

CMP 

A 'N' tf 20 

82Do D003 A 82DB 

bNE 

: AT703 

82D8 4CDA83 

JMP 

j AT960 

82Db C96B 

IAT703 CMP 

A'K' + -f20 

8200 F 0 38 A 83 1 A 

BEG 

: AT 735 

82DF CV66 

CMP 

A 'F '+$20 

82E1 F 045 A 8328 

BEQ 

: AT740 

82E3 C96A 

CMP 

A ' J'+$20 

82E5 F 05 A A 8341 

BEQ 

i AT760 

82E7 C 9 74 

CMP 

A 'T' + $20 

82E9 F 066 A 8351 

BEQ 

: AT77U 

82E& C973 

CMP 

A ' S ' + * 2 0 

82E0 DO 03 A 82F2 

BNE 

SAT705 

82EF 4CAE83 

JMP 

s AT950 


821=2 C 976 


AT705 CMP 


A ' X ' + $ 2 0 


82F4 F 0 74 A 836A 


BEQ 

: AT782 

82F6 C979 


CMP 

A'Y'+S20 

82F8 F 0 74 A 836E 


BEQ 

: AT784 

82FA C 97 A 


CMP 

*'Z'+f20 

82FC F07B A 8379 


BEQ 

: AT786 

82FE C96 1 


CMP 

A'A'+$2Q 

8300 F 0 7 0 A 83 72 


BEQ 

: AT786 

= 0000 


IF 

LITFEN 

•w 


CMP 

A 'H'+$20 

- 


BEQ 

: AT790 

m 


CMP 

A'V'+$20 

* 


BEQ 

: AT795 



CMP 

*'L'+S20 

•» 


BEQ 

ENDIF 

: AT796 

8302 C96D 


CMP 

A 'M'+|20 

8304 DOPE A 82C4 


BNE 

: AT 720 

8306 4C8083 


JMP 

: A T798 

1 

READ 

paddle 

CQNTRCLLER 

8309 208583 : 

A T 7 3 0 

JSR 

! A T 6 0 0 

A30C D036 A 8344 


BNE 

I AT761 


.OA 


Pag® 51 
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; FORCE LOWER CASE. 

; PADDLE CONTROLLER? 

? YES. 

; PEN NUMBER? 

? NO. 

; YES. 

; KEY PRESS READ? 

; YES. 

? FREE MEMORY? 

; YES. 

? JOYSTICK? 

? YES. 

* TRIGGER? 

; YES. 

; TURTLE SENSORS? 

? NO. 

? YES. 

? GRAPHICS X? 

; YES. 

; GRAPHICS Y? 

? YES. 

; GRAPHICS PIXEL VALUE. 
; YES. 

; GRAPHICS THETA ANGLE? 
? YES. 


? LIGHTPEN HORIZONTAL? 
; YES. 

; LIGHTPEN VERTICAL? 

? YES. 

f LIGHTPEN TRIGGER? 

? YES. 


; MATCH RESULT? 
? NO. 

I YES. 


? GET VALUE THAT FOLLOWS 'R'. 
; ERROR. 
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830E 

2907 


AND 

A 5 0 7 

• 

9 

PADDLE # MODULO 8, 


8310 

AA 


tax 





8311 

38 


sec 


? 

(CLEAR BORROW ) , 


8312 

A9E4 


LDA 

#22 8 

• 

9 

RESULT s 228 - VALUE READ. 


8314 

FD7002 


SBC 

PADDLO t X 




8317 

4C6083 


JMP 

: AT780 




83 1 A 

C6 

JAT735 

INY 


• 

9 

SKIP OVER 'K', 


83 1 B 

ADFC02 


LDA 

CH 

9 

9 

KEYCODE READY? 


83 1 E 

38 


SEC 





83 1 F 

E9FF 


SBC 

# $F F 




8321 

F 0 0 2 A 8325 


eeo 

! AT7 37 

} 

NO. 


8323 

A901 


LDA 

#1 

m 

9 

YES. 


8325 

4C6083 

: AT737 

JMP 

: AT780 






? CALCULATE FREE MEMORY 




8328 

C6 

: AT740 

INY 


? 

SKIP OVER 'F ' , 


8329 

38 


SEC 





9 32 A 

A5B2 


LDA 

S2L 

• 

9 

'NUMBER' = ' 8 2 L ' - 'S1H' + 1 

- • 

832C 

E5B0 


SBC 

S1H 




832E 

8 556 


STA 

NUMBER 




8330 

A 58 3 


LDA 

S2L + 1 




8332 

E58 1 


SBC 

SlHtl 




8334 

85B9 


STA 

NUMBER+1 




8336 

E6B8 


INC 

NUMBER 




8338 

0002 A 833C 


BNE 

: AT745 




833A 

E689 


INC 

NUMBER+1 




83 3 C 

A902 

SAT745 

LDA 

#NUM 

0 

9 

TYPE = NUMBER. 


633E 

4CA983 


JMP 

ATMRET 






; READ 

JOYSTICK 





8341 

206583 

SAT760 

JSR 

: A T 8 0 0 

0 

9 

GET VALUE THAT FOLLOWS 'J'. 


8344 

0040 A 8393 

SAT761 

BNE 

: AT890 

• 

9 

ERROR *** SKIP BRANCH POINT 

*** 

834o 

2903 


AND 

#$03 

9 

9 

JOYSTICK # MODULO 4, 


8348 

AA 


TAX 





8349 

BO 76 02 


LDA 

STICKOfX 

0 

9 

GET JOYSTICK DATA FROM DATA 

BASE. 

834C 

490F 


E OR 

# $ 0 F 

9 

9 

INVERT DATA READ. 


834E 

4C6083 


JMP 

• A T 7 8 0 






; READ 

TRIGGER 





8351 

208583 

: AT770 

JSR 

: AT600 

? 

GET VALUE THAT FOLLOWS 'T'. 


8354 

DO 30 A 8393 


8NE 

: AT890 

• 

9 

ERROR. 


8356 

290 F 


AND 

#$0F 

• 

9 

TRIGGER # MODULO 16. 


8358 

A A 


TAX 





8359 

BD7C02 


LDA 

PTRIGO t X 

• 

9 

RESULT = SINGLE BIT. 


835C 

49FF 


EUR 

# $ F F 




835E 

2901 


AND 

#$01 





; **★ ENTRY FOR TURTLE SENSORS ***. 
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o 

c 

c 

r 


8360 

A2 0 0 

: AT780 

LDX 

80 

• 

9 

8362 

8568 

S AT781 

ST A 

NUMBER 

; 

8364 

8o69 


ST X 

number* 1 


8366 

A902 


LDA 

#NUM 

t 

8368 

003P A 83A9 


8NE 

atmret 

i 



; GRAPHICS PAR APE TERS 


8 36 A 

A26C 

: AT782 

LDX 

AGX-DTAB 

m 

t 

836C 

8029 A 839 7 


0CS 

: AT900 

i 

836 E 

A26F 

; A T 78 A 

LDX 

agy-dtab 

• 

f 

8370 

8025 a 8397 


8CS 

S AT900 

f 

8372 

A5F2 

: AT786 

LDA 

THETA 

} 

837 A 

A6F3 


LDX 

THETAtl 


8376 

C 6 


INY 



8377 

D0E9 A 8362 


BNE 

: AT781 

i 

8379 

C 6 

: AT 788 

INY 



837A 

205EAC 


JSR 

GREAD 

f 

837D 

4C6083 


JMP 

: AT7 80 



= 0000 


IF 

LITFEN 




? READ 

lightpen 





: AT790 

LDA 

LPENH 

• 

9 

mm 



BCS 

: A T 7 9 7 

• 

9 



: AT795 

LDA 

LPENV 

• 

9 

- 



BCS 

: AT797 

9 

9 



: AT796 

LDA 

STICKO 

• 

9 




EOR 

AS 01 

• 

9 

- 



AND 

#$01 




:AT797 

LDX 

EXEC 

• 

9 

- 



BEQ 

: AT79B 

i 




LDX 

# $ 0 A 

• 

9 

- 



SIX 

COLGRO+4 


_ 


j AT79B 

INY 






BNE 

: AT780 

m 

9 




ENDIF 




; GRAPHICS THETA ANGLE. 
; (BRA). 

? READ GRAPHICS DATA. 


? BACKGROUND = LIGHT GPAY. 
; (BRA). 

; READ MATCH FLAG 

? MATCH RESULT FLAG, 

; (BRA). 

; SUBROUTINE TO PROCESS NUMBER FOLLOWING %P , XJ & XT. 


8380 

A5FE 

: A T798 LDA 

MATCHF 

• 

9 

8382 

C 8 

INY 


; 

8383 

D0D8 A 636 0 

BNE 

: A T 7 8 0 


8385 C 6 

8386 206E81 


: AT60 0 INY 
JSR 


ATO* 


; SKIP OVER # P # OR 'J' OR 
} *** RECURSIVE CALL ***. 


PILOT 
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8389 

0009 *839a 


BNE 

: AT695 

• 

9 

ERROR. 

8396 

?906 


AND 

ANV*R+NUM 

; 

NUMERIC RESUL1? 

838D 

F 0 0 5 A 839a 


BED 

: AT895 

? 

NO -- ERROR. 

838 F 

A5B8 


LDA 

NUMBER 

• 

9 

YES. 

8391 

C588 


CWP 

NUMBFR 

• 

9 

SET CC FOR NORMAL EXIT. 

83*3 

60 

I AT690 

RTS 


? 

RETURN WITH CC SET. 

839^ 

A902 

: AT895 

LDA 

AATMERR 

? 

INVALID U AFTER LETTER. 

839b 

60 


RTS 


• 

9 

RETURN WITH CC SET. 



; SUBROUTINE TO 

ROUND l STORE THE 

GRAPHICS COORDINATES 

8397 

C8 

SAT900 

INY 




83°8 

6582 


LDA 

DT A8 + 2 , X 

7 

GET FRACTIONAL PORTION. 

839 A 

2A 


RUL 

A 

} 

MSB OF FRACTION TO CARRY BIT. 

839b 

B580 


LDA 

DTAB+OjX 

• 

9 

ROUND LSB . 

8390 

6900 


ADC 

n o 



839F 

85P6 


STA 

NUMBER 



8 3 A 1 

B581 


LDA 

DTAB+lfX 

m 

9 

CARRY TO MSB. 

8 3 A 3 

6900 


ADC 

AO 



83A5 

8569 


STA 

number + 1 



8 3 A 7 

A902 


LDA 

A NUN 

7 

NUMERIC RESULT. 

83A9 

85 A l 

ATMRET 

STA 

TEMP 

• 

9 

SET CC FOR EXIT. 

83AB 

C5 A I 


CMP 

TEMP 



83 AO 

60 


RTS 






J TUPTLE SENSORS 

• 





r 

; %s = 

RQ80T IF 

ON, ELSE 

VISIBLE 

TURTLE. 



? XSR = 

ROBOT. 






} %ST = 

VISIBLE 

TURTLE. 



83 A E 

C 8 

! AT950 

INY 


• 

9 

SKIP OVER 'S', 

83 A F 

eieo 


LDA 

(ININ) ,Y 

• 

9 

GET NEXT CHARACTER. 

8381 

C 6 


INY 


1 

SKIP OVER NEXT CHARACTER. 

83«2 

0920 


ORA 

ALC 

• 

9 

FORCE LOWER CASE, 

838A 

C 9 72 


CMP 

A'R'+$20 

• 

9 

%SR? 

835o 

F 00 A A 83C2 


6EQ 

! AT952 

• 

9 

YES. 

8306 

C97a 


CMP 

A'T'+42Q 

• 

9 

XST? 

838A 

F 0 1 1 A 83CD 


BED 

: AT954 

• 

9 

YES. 

83 BC 

66 


DEY 


} 

%S, 

8380 

ADC505 


LDA 

P8T0N 

• 

9 

ROBOT OR VISIBLE? 

83C 0 

FOOb A 6 3 C D 


BEG 

JAT954 

• 

9 

VISIBLE. 

83C2 

ADC505 

: AT952 

LDA 

RBTON 

• 

9 

SENSORS = 0 IF ROBOT OFF. 

83C5 

F 099 A 8360 


BEQ 

: AT780 

m 

9 

OFF. 

63C 7 

2G0DB4 


JSR 

RRDSNS 

9 

9 

ROBOT. 

83C A 

4C6083 


JMP 

i AT780 



83CD 

A 592 

: AT95a 

LDA 

EXEC 

; 

EXECUTE MODE? 

83CF 

F 0 06 A 83D7 


BEG 

: AT956 

? 

NO. 




A T Art I C AM AC Assembler Ver l.OA 
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STEaART 



8301 

?0<J8AC 


J5R 

VTSENS 

8304 

AD5005 


LOA 

TRTSNS 

8307 

4C60*3 

: AT956 

JMP 

: AT780 



; xh = 

TURTLE 

PEN NUMB 

830 A 

ce 

: AT960 

INY 


8308 

AO 1 305 


LOA 

PEN 

83DE 

4C6083 


JMP 

: AT780 


page 57 

D1 IPILOT. 


? VISIBLE, 


} SKIP OVER 
; GET PEN #, 
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83E 1 PROC 

; 


; XT V PE -- TYPE COMNAND PROCESSOR 
; 


83E1 

20 A 7 A 0 

XTYPE 

JSR 

TEXP 

; 

PROCESS TEXT EXPRESSION. 

83F4 

A592 


LD A 

EXEC 

) 

EXECUTE MODE? 

83E6 

F 070 a 8465 


PtO 

SXT090 

? 

NO. 

83E8 

208896 


JSR 

TSTNOD 

? 

CHECK SCREEN MODE. 

8 3EB 

C908 


CMP 

8GRFS 

• 

9 

FULL SCREEN GRAPHICS. 

83ED 

0003 A 83F2 


BNF 

: XT005 

; 

NO. 

83EF 

A 98 3 


LD A 

#NFCERR 

? 

YES -- ERROR. 

83 F 1 

60 


RTS 




83F2 

Ab8F 

JXT005 

LDX 

TELN+3 

; 

CHECK FOR NULL TEXT. 

83 p 4 

FOOC a 8402 


B£Q 

! X T 0 1 0 

• 

9 

NULL. 

83 Fo 

BDFFBb 


LD A 

TEXBUF-1 ,X 

• 

9 

NON-NULL -- CHECK FINAL CHARACTER. 

83FR 

C95C 


CMP 

88SLASH 

; 

IS IT EOL SUPPRESS? 

83 FB 

D005 A 8402 


Bi\E 

: X TO 1 0 

; 

NO. 

83FD 

C68F 


DEC 

TELN+3 

? 

YES -- SUPPRESS ALSO. 

83FF 

4C0984 


JMP 

: XT020 



8402 

A99B 

JXT010 

LDA 

FfcOL 

; 

INSERT EOL, 

8404 

9D00BC 


STA 

TEXBUF,X 



8407 

E68F 


INC 

TELN+3 





t TYPt 

WITH 

WORD SPLIT A VOI DANCt 

• 


8409 

84 AC 

SXTU20 

STY 

XTENP+ 1 

? 

SAVE STATEMENT INDEX. 

84 0 B 

A48E 


LD Y 

TELN+2 

} 

STARTING INDEX. 

8400 

C48F 


CRY 

TELN+3 



84 0 F 

F050 A 846 1 


BEQ 

IXT080 

? 

NULL OUTPUT -- ALL DONE. 

8411 

84AB 

: XT022 

STY 

XTEMP 

; 

SAVE INDEX. 

8413 

A655 


LDX 

COLORS 

; 

GET CURRENT CURSOR POSITION. 

8415 

AD 1 4 05 


LOA 

GRFLAG 

; 

DIFFERENT CURSOR IF SPLIT SCREEN. 

8418 

F003 A 841D 


BEG) 

: XT025 



841 A 

At 9 1 02 


LDX 

TXTCOL 

; 

SPLIT SCREEN -- USE OTHER CURSOR, 

8410 

8o AD 

I XT025 

STX 

XTENP+2 

; 

SAVE STARTING COLUMN #, 

84 1 F 

CA 


DLX 


; 

PRE-CONDITION THE INDEX. 

8420 

bl8C 

JXT030 

LDA 

(TEIN) ,Y 

• 

9 

FIND LENGTH OF NEXT WORD. 

8422 

E8 


IwX 




8423 

C6 


INY 




8424 

C48F 


CP Y 

TtLN+3 



842b 

F 0 0 4 A 842C 


BEQ 

: XT 035 

f 

END OF TEXT. 

8428 

C 92 0 


CMP 

tt 0 0 


? SPACE? 

842 A 

DO F4 A 8420 


BNE 

! X T 0 3 0 

; 

NO -- KEEP SCANNING. 
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01 * P I LOT , 


84?C 

A4 AH 

1 X To 35 

LOT 

X TEMP 

9 

END OF WORD -- CHECK FOR WORD SPLIT, 

8a2E 

ECEoOb 


CPX 

PGCCL 

9 

DOES IT WRAP SCREEN? 

8a31 

FOOC A 843F 


BEQ 

: XT040 

9 

NO -- OUTPUT IT, 

8433 

90 0 A A 8 438 


8CC 

: xT040 

9 

NO -- OUTPUT IT, 

8435 

A 5 A L) 


LOA 

X TEm P ♦ 2 

9 

YES -- IS THIS THE 1ST word of line? 

8437 

C08505 


CMP 

LFCCL 



843A 

F003 A 843F 


BEQ 

: XT040 

9 

YES -- FORGET AbOUT NEW LINE, 

843C 

209t>9F 


J3R 

m-wlin 

9 

NO -- START A NEW LINE. 

843F 

018C 

:XT040 

LOA 

(TELN)rY 

f 

9 

OUTPUT THE WORD JUST SCANNED, 

8441 

C 920 


CMP 

* # 0 


9 SPACE? 

8443 

0007 *844C 


8NE 

: XT050 

9 

NO, 

8445 

ECR605 


CPX 

RGCOL 

9 

YES -- IS IT THE LAST POSITION? 

8446 

0002 A 844C 


B 14 E 

: XT050 

9 

9 

NO, 

8 4 4 A 

A996 


LOA 

AEOL 

• 

9 

YES -- CHANGE TO EOL. 

844C 

206294 

SXT050 

JSF? 

CHOT 

9 

9 

OUTPUT CHAR. 

8 4 4 F 

2 0 4 8 A A 


JSR 

SPDDEL 

• 

9 

DELAY IF SPECIFIED, 

8452 

C8 


INY 




8453 

C 4 8 F 


CFY 

TELN+3 

9 

END OF TEXT? 

8455 

F 0 0 A A 846 1 


8EG 

:XT080 

• 

9 

YES. 


5457 86 

8458 618C 

845A C 8 
8450 C 92 0 
8450 DOEO A 843F 

845F FObO A 84 1 1 

8461 A 4AC 
8463 A 9 0 0 

8465 60 


DfcY 


8466 ASF£ 

846a DOOB A 84 7 7 

846C F 0 06 A 84 74 


8470 A5FE 

84 72 F 0 0 3 *847 7 



LD A 

(TELN) , Y 

• 

9 

SPACE? 


INY 





CMP 

U 0 0 


; SPACE? 


BNE 

I XT040 

9 

NO -- NOT END OF WORD. 


BEQ 

: XT022 

? 

YES -- NOW DO NEXT WORD (BRA) 

: X T U 6 0 

LD Y 

XTEMP+1 

• 

9 

RESTORE STATEMENT INDEX. 


IDA 

P 0 

9 

9 

SET CC FOR EXIT. 

JXTQ90 

RTS 


9 

9 

RETURN WITH CC SET, 

; 'Y' COMMAND 

PROCESSOR 



XTYPE2 

BEQ 

: XT500 

9 

9 

SYNTAX SCAN ONLY. 


LDA 

MaTCHF 

; 

Y COMMAND (SAME AS # TY # ). 


BNE 

: X T 5 0 0 




BEQ 

:XT400 



; 'N' COMMAND 

PROCESSOR 



XTYPEi 

BEQ 

:XT500 

; 

SYNTAX SCAN ONLY. 


LDA 

MATCHF 

} 

N COMMAND (SAME AS 'TN'), 


BEQ 

SXT5O0 

j 

SKIP BRANCH TO 'XTYPE', 


8466 

F 0 0 7 

A 8<|77 

XTYPE3 8EQ 

J XT500 

8470 

ASF £ 


IDA 

M ATCHF 

847<f 

F 0 0 3 

A 8477 

0EQ 

5 XT5O0 


ATARI C A M A C Assembler Ver 
PILOT -- h .6. STEWART 

8474 XREM 

8474 4C1BRF :XT400 JMP SCNEOL 


8477 4CE183 


5XT500 JMP 


XTYPE 


) SYNTAX SCAN ONLY. 

} N COMMAND (SAME AS 'TN'). 
; SKIP BRANCH TO 'XTYPE', 
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? REMARK COMMAND PROCESSOR TOO. 


* 

t 


SCAN TO END OF LINE & RETURN MTH CC SET 


PILOT 


- - h . b 


c 

c 


c 

c 

r 


c 

# 

I 

o 


847A 


ATARI CAMAC Assembler Ver 
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PRCC 
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; XPOS -- POSITION COPLAND PROCESSOR 


847A 20D49F 

XPOS 

JsR 

EXP 

• 

9 

column number. 

8470 Ab92 


LOA 

EXEC 

9 

9 

EXECUTE MODE? 

8 4 7 F F 0 1 9 A 849A 


BEQ 

S XPQ20 

7 

NO, 

8481 2 0 BB 9b 


JSR 

TST w OD 

7 

CHECK SCREEN MODE. 

8484 C908 


CMP 

#GRF3 

7 

FULL GRAPHICS? 

8486 F u 3 4 A 84BC 


BE 3 

J XP080 

7 

YES -- IGNORE COMMAND, 

8486 A594 


LOA 

EXPSTK+1 

9 

9 

RANGE CHECK THE COLUMN 4. 

848A D 0 33 A 84BF 


BNE 

: XP900 

7 

TOO LARGE, 

848c A59 3 


LOA 

EXPSTK+O 

7 

PAST RIGHT MARGIN? 

848E CDB605 


CMP 

RGCOL 



8491 F0O2 A 8495 


BEQ 

: X901 0 



8493 P 02 A A 84B F 


8CS 

: XP900 

7 

YES -- TOO LARGE. 

8495 8555 

: X P 0 1 0 

STA 

COLORS 

9 

9 

O.K. -- STORE IT. 

849/ 809102 


STA 

TXTCOL 

• 

9 

SPLIT SCREEN TOO, 

849 A 20079F 

:XP020 

JSR 

skpsep 

9 

9 

SKIP SEPARATOR. 

8490 2 0 D 4 9 p 


JSR 

EXP 

9 

9 

ROW NUMBER. 

84 A 0 A592 


LOA 

EXEC 

9 

9 

EXECUTE MODE? 

84A2 F 0 1 A A 84 BE 


BEQ 

: X P 0 9 0 

• 

9 

NO. 

84A4 A03505 


LDA 

TRACE 

9 

9 

TRACE EXECUTION? 

8 4 A 7 0D4505 


ORA 

SGLSTP 



84 a A 0010 A 84BC 


BNE 

: XP080 

9 

9 

YES -- IGNORE THIS COMMAND 

84 AC A 594 


LDA 

EXPSTK+1 

9 

9 

RANGE CHECK THE ROW 4. 

84A£ DOOF A 848F 


BNE 

; XP900 

9 

9 

TOO LARGE. 

84B0 A593 


LDA 

EXPSTK+O 



8402 COP F 02 


CMP 

BOTSCR 



8405 6006 A 84BF 


BCS 

:XP900 

• 

9 

TOO LARGE. 

8407 8554 


STA 

ROWCPS 

7 

O.K. -- STORE IT. 

8499 809002 


STA 

TXTROrt 

9 

9 

SPLIT SCREEN TOO, 

846C A900 

:xPoeo 

LDA 

#0 

9 

9 

SET CC FOR NORMAL EXIT. 

84 BE 60 

: X p 0 9 0 

RTS 


9 

9 

RETURN WITH CC SET. 

840F A902 

: XP 900 

LDA 

# I MPERP 

9 

9 

COLUMN/ROW OUT OF RANGE. 

84C I 60 


RTS 


7 

RETURN WITH CC SET. 




PILOT - 
84 C2 
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; XEND 
: 


PkOC 

- END STATEMENT PROCESSOR 


84C2 

F 0 1 6 A 84D A 

XEND 

8EQ 

84C4 

AE4D05 


LDX 

84C7 

F 0 t 4 A 84DD 


BEQ 

84C9 

86 F F 


ST X 

P4Ct$ 

CA 


DEX 

84CC 

CA 


DEX 

84CD 

8E4D05 


STX 

8400 

8 L) 6 b 0 5 


LD A 

84 D 3 

8584 


STA 

8405 

8D6C05 


LD A 

8406 

8585 


STA 

840 A 

A90 0 

: XE Q90 

LD A 

840C 

60 


RTS 

840D 

208196 

: XE095 

JSR 

84 EO 

84 AB 


STY 

84E2 

20°E98 


JSR 

84E5 

A4 AB 


LD Y 

84E7 

A98 1 


LOA 

84E 9 

8D4305 


STA 

84EC 

60 


RTS 

84E0 



PRO 



? XSTOP 

• 

f 

m m 

84ED 

P002 A 84F 1 

XSTQP 

0£Q 

84EF 

A 99 A 


LOA 

84F1 

60 

SXS090 

RTS 


: <EQ90 

USTKP 

SXE095 

RUN 


USTKP 
USESTK, X 
NXTLN 

USESTK*1#X 

NXTLN+1 

#0 


CLOSER 

XTEPP 

REPDEV 

X TEN P 

AENDERR 

NOCONT 


SYNTAX SCAN ONLY. 


? USE STACK POINTER. 
} STACK EMPTY. 


SET RUN MODE EVEN IF ALREADY SET. 
GET NEXT LINE ADDRESS FROM STACK. 


O.K. -- SET CC FOR EXIT. 


CLOSE ALL OPEN FILES. 


STOP CONDITION. 

NO CONTINUE AFTER END. 


: XS090 
FSTPMES 


; SYNTAX SCAN ONLY. 

; GENERATE STOP MESSAGE, 
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STEWART 




01 SPILOT. 

= 0000 


IP 

DOS 



- 

? 

; xoos 

• 

PROC 





-- DOS 

COPLAND PROCESSOR 



- 

/ 

XDOS 

BEQ 

S XD090 

• 

9 

SYNTAX SCAN ONLY. 

mm 


STA 

COLDST 

m 

9 

SETUP FOR COLDSTART ON RESET. 

- 


JSR 

TX0PEN 

? 

OPEN TEXT SCREEN. 

. 


Ji^P 

CDSVSAV) 

• 

9 

YES. 


X 00 9 0 


RTS 

RMDIF 


84 = 2 


PKOC 




; XRUN 

• 

-- RUN 

COMMAND PROCESSOR 


84 = 2 

20139P 

9 

XRUN 

JSR 

SLB 

; 'RUN <E 0L> ' ? 

84 = 5 

20F99E 


JSR 

CHKTRM 


84F8 

FOU A 650B 


BEQ 

: XP005 

7 YES. 



7 ASSUME 'RUN 

< F I L E > ' - SHARP ' 

LOAD' CODE. 

84 F A 

201090 


JSR 

XL01 00 

? OPEN DEVICE. 

84 = D 

0034 A 8533 


BNE 

: XR090 

7 ERROR. 

84 = F 

A592 


LOA 

EXEC 

; EXECUTE MODE? 

8501 

F 0 0 5 A 8508 


BEQ 

i XR003 

7 NO. 

8503 

85 F F 


STA 

RUN 

; YES -- SET RUN MODE. 

8505 

201465 


JSR 

: XR020 

? INITIALIZE ENVIRONMENT. 

8508 

4C0190 

SXP003 

JMP 

XL0005 

; NOW LET LOAD DO THE SETUP. 

8506 

A 592 

SXP005 

LUA 

EXEC 

7 EXECUTE MODE? 

8500 

F 024 A 8533 


BEQ 

: XR090 

7 NO. 

85 0 F 

85FF 


STA 

RUN 

? YES -- ENTER RUN MODE. 



? ★ ★★ EXTERNAL 

ENTRY POINT FROM 

'MLQQP ' *** 

851 1 

20A087 

XRN010 

JSR 

XNEWV 

? CLEAR ALL VARIABLES. 

8514 

A5AE 

JXP020 

LOA 

S1L 

? SETUP THE NEXT LINE POINTER. 

851b 

8584 


STA 

NXTLN 


8516 

45 A F 


LD A 

S1L + 1 


851 A 

8585 


STA 

NXTLN+ 1 


85 1 C 

2 0 A 0 A 3 


JSP 

GCLEAR 

? CLEAR SCREEN. 

85 IF 

2060AF 


JSR 

GPINIT 

; INITIALIZE GRAPHICS PARAMETERS 

8522 

84 AB 


STY 

XTEMP 


6524 

20729F 


JSP 

NULACC 

? SET ACCEPT BUFFER TO NULL, 

8527 

A4AB 


LD Y 

XTEMP 


8529 

A900 


LD A 

no 

; MAKE MATCH FLAG FALSE ... 

652B 

8D4D05 


STA 

ustkp 

; ... USE STACK INDEX ... 

852E 

85 F£ 


STA 

matchf 

7 ... & SET CC ALSO. 

8530 

804305 


STA 

NOCONT 

7 CONTINUE O.K. 

8533 

60 

i XR090 

RTS 



8534 


• 

PROC 





9 

; XCONT 

-- CONTINUE COMMAND PROCESSOR 

8534 

F009 A 853F 

7 

XCONT 

BEQ 

: XC090 

? SYNTAX SCAN ONLY. 

853b 

A E 4 3 0 5 


LDX 

NOCONT 

7 CONTINUE O.K.? 

8539 

DO 05 A 8540 


BNE 

! XC1 00 

; NO -- INFORM OPERATOR. 


ATARI CAMAC Assembler Ver 


PILOT 

-- N.B. 

STEwAKT 



8536 

85FF 


STA 

RUN 

8530 

A 90 0 


LOA 

n 0 

8536 

60 

: XC 09 0 

RTS 


8540 

A999 

8XC100 

LOA 

#CNTERP 

8542 

60 


RTS 
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; YES -- ENTER RUN MODE. 

; SET CC FOP NORMAL RETURN, 


? CONTINUE ERROR. 


PILOT 



-- H.d. 
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8543 PROC 

/ 



; XACCPT -- ACCEPT COMMAND 

• 

PROCESSOR 

8543 AQOO 

9 

XACCPT 

LOA 

n 0 

? STANDARD ACCFPT. 

8545 804705 


STA 

akflag 


854fe 8D4605 


STA 

axflag 



; *** 

EXTERNAL 

ENTRY POINT 

FROM 'XACCX' AND 'XACCK' *** 

8546 20C09P 

: XAoO 1 

JSR 

CHKEGS 

9 ' = '? 

854E D006 A 855b 


BNE 

i X A 0 0 3 

? NO OR NOT YET. 

0550 A901 


LOA 

A N U L L 

; SETUP FOR NULL TARGET. 

8552 P5A6 


STA 

XTEMP 


8554 D 05 1 A 85 A7 


BNE 

SXA022 

9 CBRA). 

8556 206E81 

: X A o 0 3 

JSR 

ATOP 

; CHECK FOR VARIABLE. 

8559 DOOfc A 8563 


BNE 

: XA0 09 

? ERROR. 

8556 85A6 


STA 

XTEMP 

; SAVE ATOM TYPE. 

8550 2990 


and 

AS VAR* USVAR + NVARf NULL+BPTR 

855F DO 03 A 9564 


BNE 

: XA020 

? VALID ATOM TYPE. 

8561 A902 


LOA 

AIMPERR 

? NONE OF THE ABOVE -- ERROR. 

8563 60 

JXA009 

RTS 


? RETURN WITH CC SET. 

8564 20B88B 

i XA020 

JSR 

SAVIT 

? YES -- SAVE NAME IF STRING TARGET 

8567 20009P 

:XA20D 

JSR 

CHKEGS 

? CHECK FOR ASSIGNMENT OPTION. 

056 A F03B A 85 A 7 


BEQ 

:XA022 

; YES. 

856C A 592 


LOA 

EXEC 

9 EXECUTE MODE? 

856E F0F3 A 8563 


BEQ 

: XA009 

? NO. 

0570 84 AC 


STY 

XTEPP+1 

9 SAVE STATEMENT INDFX. 

8572 A 0 4 7 0 5 


LOA 

AKFLAG 

? ACCEPT KEY? 

8575 DO 1 7 A 85SE 


BNE 

J XA021 

; YES. 

8577 20B696 


JSR 

TSTMOD 

? CHECK SCREEN MODE. 

857A 2905 


AND 

ATXSLfGRSS 

? text INPUT O.K.? 

857C 0003 A 858 1 


BNE 

:XA20G 

; YES. 

057E A983 


LDA 

ANRCERP 

? NO -- ERROR. 

8580 60 


RTS 



8581 A20C 

SXA20G 

LDX 

ATELN-DTAB 

; GET A LINE TO THE TEXP BUFFER. 

8503 206194 


JSR 

GETLIN 


8586 C68P 


DEC 

TELN+3 

? REMOVE EOL. 

8588 2028 A 1 


JSR 

TRAILB 

? PROCESS UNDERSCORE IF PRESENT. 

850tt 4CC785 


JMP 

: XA024 


85 8 E A 9 0 0 

: XA021 

LDA 

AO 


8590 A 8 


TaY 



8591 850 A 


STA 

ACLN+2 
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A 503 

0595 

0597 
8594 
059C 
85 9£ 
859F 
854 1 
85A3 
85 A 4 

85 A 7 
85A8 
85 A A 
85 AO 
9 5 A F 


8586 

A92U 

9168 

207*97 

9I8C 

C6 

048F 

9186 

C8 

4C 1 680 
C 6 

A 5 P 6 
8D4905 
A SB 7 
6D4 A05 


: xA0?2 


85P2 2 0 A 7 A 0 

8585 A592 

8587 F 0 A A A 8563 


85«9 

858b 

85BD 

85C0 

85C2 

85C5 


8 4 A C 
A 4 A C 
A D4 9 0 5 
8566 
A04 A05 
65P7 


STA 

LDA 

STA 

JSR 

8 T A 

INY 

STY 

STA 

INY 

jyp 

INY 

LOA 

STA 

LOA 

STA 

JSR 

LDA 

BkQ 

STY 

LDV 

LDA 

STA 

LDA 

STA 


TELK^2 
0* ' 

(ACLN) * Y 
KIR 

( T E L N ) # V 

T£ L N ♦ 3 
CACIN) # Y 

S XA 030 


POINT 
GN UP B 
POINT+1 
GNUMB+1 

TEXP 

EXEC 
: XA009 

XTENP+1 

XTEMP+ 1 

GNUMB 

POINT 

GNUMB+1 

POINT+1 


) LEAOING BLANK, 
) GtT KEY. 


I YES -- SKIP OVER 
) SAVE 'POINT', 


? EVALUATE TEXT EXPRESSION. 

; EXECUTE MODE? 

? NO. 

? YES -- RESTORE 'NP', 

? RESTORE 'POINT', 


; *** EXTERNAL ENTRY POINT FROM 'XIN' *** 

EXPECTS: STATEMENT INDEX IN 'XTEMp+1'. 

TARGET ATOM TYPE IN 'XTEMP ' . 

'POINT' OR 'NP' SETUP PER 'ATOM' CALL. 
'AXFLAG' SET PROPERLY. 

'SAVIT' CALLED IF STRING TARGET. 

STRING DATA IN 'TEXP'. 






35C7 

85C7 20FF8 6 


X AC 024 
! X A 0 2 4 


65CA 

85CC 

85CE 


A 58 E 
858 A 
AA 


JSR 

LDA 

STA 

TaX 


RESIT 

TELN+2 

ACLN+2 


YES -- RESTORE NAME IF STRING TARGET. 
MOVE START INDEX. 



85 CF 

A 6 

TAY 




V 

85D0 

AD4b05 

LDA 

AXFLAG 

• 

F 

ACCECPT LITERAL? 


85D3 

F 0 1 2 A 85E7 

BEG 

: XA24T 

• 

F 

NO, 

# 

8505 

E48F 

: X A24D CRX 

T E L N 1 3 

? 

DONE? 


8507 

F042 A 86 1 6 

BEG 

: X A 0 3 1 

• 

F 

YES. 

w 

85D9 

BDOOBC 

LDA 

TEXBUFr X 

• 

F 

NO -- GET NEXT CHAR, 


850C 

E6 

I NX 




• 

85DD 

COFE 

CRY 

FACCLNG 

• 

F 

ACCEPT BUFFER FULL? 


85DF 

F 0 3 A A 86 1 6 

BEQ 

: X A 0 3 1 

• 

F 

YES. 

HI 








STA 


( ACLN ) # Y 



% 

% 


% 

l 


85 F i 


9186 
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85E3 

C 6 


INY 


85E4 

4CD585 


JMP 

: A A24D 

85E7 

A 92 0 

SXA24T 

LD A 

A ' * 

85E9 

DO 1 6 *6601 


BNE 

: XA027 

85EB 

E48F 

: X A 0 25 

CPX 

TELN+3 

85ED 

F 027 *8616 


BEQ 

: XA03G 

85EF 

6D00BC 


LD A 

TEXBUF r X 

65F2 

E6 


I NX 


85F3 

COFD 

: X A026 

CHY 

AACCLNG-l 

85F5 

F01F *8616 


BEG 

: X A030 



} CHARACTER 

CONVERSION HERE 

85F7 

C 96 1 


CMP 

A 'A ' + $20 

85F9 

9006 *8601 


BCC 

: X A 0 2 7 

85 F 6 

C97B 


CMP 

# # Z'+l+$20 

85 FQ 

B 0 02 *8601 


BCS 

: XA027 

85 F F 

4920 


EOR 

AS20 

8601 

9186 

: X A 0 2 7 

STA 

CACLN) t Y 

8603 

C8 


INY 


8604 

C 92 0 


CMP 

A' ' 

8606 

D0E3 *8SE6 


BNE 

: X A 0 2 5 

8606 

E48F 

: X A026 

CPX 

TELN+3 

8b0 A 

FOOF *86 1 B 


BEQ 

:XA031 

860C 

8D00BC 


LD A 

TEXBUF f X 

860F 

E 6 


I NX 


8610 

C920 


CMP 

A # # 

8612 

DODF *85F3 


BNE 

SXA026 

6614 

F0F2 *8608 


BfcO 

JXA028 

8616 

A920 

: XA030 

LD A 

A' # 

8616 

9188 


STA 

CACLN) rY 

8b 1 A 

ce 


INY 


8616 

848b 

: XA 03 1 

STY 

ACLN+3 

8610 

A5AB 


LD A 

XTEMP 

86 1 F 

C90 1 


CMP 

ANULL 

8621 

F02F *8652 


BEQ 

! X A 1 9 0 

8623 

2984 


AND 

AN V AR + BPTR 

8625 

D 0 0 3 *862A 


BNE 

SXAIOQ 

862/ 

4CA78B 


JMP 

XCM300 

86? A 

A OFF 

: X A 1 0 o 

LD Y 

A - 1 
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? INSERT LEADING BLANK, 

? (BRA). 

; DONE? 

? YES. 

; NO -- GET NEXT CHAR, 

? ACCEPT BUFFER FULL. 

? LOWER CASE ALPHA? 

? NO. 

? NO. 

? YES -- CONVERT TO UPPER CASE. 

} BLANK? 

; NO. 

? YES -- SKIP MULTIPLES , 

; END OF TEXT. 

? GET NEXT CHARACTER. 

; BLANK? 

; NO -- STORE IT. 

? YES -- IGNORE IT (BRA). 

J ADD TRAILING BLANK, 

; END INDEX. 

? CHECK PARAMETER TYPE AGAIN. 

} NONE -- ALL DONE, 

} NUMERIC VARIABLE. 

; STRING VARIABLE -- GO TO COMMON CODE & RET, 
; CONVERT NUMBER TO BINARY REPRESENTATION. 


ATARI CAMAC Assembler Ver l.OA Page 69 
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8b2C ce 

S X a i io 

INY 


; 

SCAN TO NUMBER OR EOL, 

«6?D blPC 


LOA 

(TELN) , Y 

) 

GET A CHAR. 

862 F C998 


CMP 

#EOL 

e 

9 

END OF LINE? 

8631 P 0 09 A 86 3C 


BtO 

: x A 1 20 

) 

YES -- DONE, 

8633 C92D 


CMP 

A # 


NO -- MINUS SIGN? 

8635 FOOS a 863C 


BtO 

: XA 120 

? 

YES -- DONE. 

8 637 20839E 


JSR 

CNUM8P 

? 

NO — NUMERIC DIGIT? 

8e3A POFO A 8b2C 


ecs 

S XA1 1 0 

• 

9 

NO -- KEEP SCANNING. 

863C AiOC 

: X A l 20 

LDX 

ATELN-DTAB 

? 

NOW CONVERT NUMBER WE FOUND. 

8b 3E 2 Oeb9D 


JSR 

ASCDEC 



8641 A 0 0 0 


LDY 

AO 

? 

MOVE VALUE TO VARIABLE, 

8o«3 A5B8 


LDA 

NUMBER 



8645 9106 


STA 

(POINT) , Y 



8647 A5A6 


LDA 

XTEMP 

; 

SEE IF POINTER TC BYTE. 

8649 C98 0 


CMP 

ABPTR 



8o4b F 0 0 5 A 8652 


6 tG 

:XA190 

• 

9 

YES -- ALL DONE. 

8640 Cb 


INY 




8640 A 569 


LDA 

NUMBER+1 



8650 9186 


SI A 

(POINT ) f Y 



8652 A 4 A C 

! X A 1 9 0 

LDY 

XTEMP+1 

• 

f 

RESTORE LINE POINTER. 

8654 A 90 0 


LDA 

AG 

• 

9 

SET CC FOR NORMAL EXIT. 

8b56 60 


RTS 


9 

9 

RETURN WITH CC SET. 


• 

9 

; x acc x 

• 

-- ACCEPT LITERAL COMMAND 

PROCESSOR. 

8657 A 9 0 1 

XACCX 

LDA 

#1 



8659 804605 


STA 

AXFLAG 



865C A900 


LDA 

AO 



8650 8047 05 


STA 

akflag 



8661 4C4B85 


JMP 

: X A 0 0 1 




• 

; XACCK 

• 

-- ACCEPT PROM KEYBOARD 

(SINGLE CHARACTER), 

8664 A 90 1 

XACCK 

LDA 

#1 



8666 8l>47 05 


STA 

AKFLAG 



8669 4C4b85 


JMP 

S X A 0 0 1 




PILOT 



•• H . b • 


ATARI CA^AC Assembler Ver 
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01 IPILOT, 


8660 PROC 


; XMATCh -- PATCH COMMAND PROCESSOR 
; 


SofeL 

A 4 0 0 

XMATCH 

LDA 

#0 

• 

9 

FORCE UPPER CASE ALPHA. 

866E 

F 0 02 A 0672 


9EQ 

: XM005 



8670 

A 9 0 1 

XM ATX 

LDA 

#1 

• 

9 

LITERAL MATCH. 

8b 72 

S0DA05 

JXM005 

STA 

LITMAT 



8675 

B180 


LDA 

( INLN) 9 Y 

• 

9 

GET FIRST MATCH FIELD BYTE. 

8 1>77 

C99B 


CMP 

FEOL 



8679 

0003 A 667E 


BNE 

: XMO 1 0 



8&70 

A902 


LDA 

AIMPERR 

9 

9 

NULL MATCH FIELD IS ERROR. 

8670 

60 

JXM009 

RTS 


; 

RETURN WITH CC SET. 

867E 

2 0 A 7 A 0 

SXM010 

JSR 

TEXP 

• 

f 

EVALUATE TEXT EXPRESSION OPERAND. 

8681 

A 592 


LDA 

EXEC 

i 

EXECUTE MODE? 

8683 

F UFti A 867D 


BEG 

: X M 0 0 9 

• 

9 

NO -- DONE. 

8685 

A900 


LDA 

AO 

• 

9 

RESET MATCH FIELD NUMBER AND FLAG, 

8687 

85F£ 


STA 

MATCHF 



8689 

A92C 


LDA 

, ' 


; IS DEFAULT MATCH FIELD DELIMITER. 

868B 

85E2 


STA 

MFDEL 



8680 

8 4 A C 


STY 

XTEMP+1 

; 

SAVE INPUT INDEX. 

868P 

A58E 


LDA 

TELN+2 

? 

CHECK FOR NULL RESULT, 

8691 

C58F 


CMP 

TELN+3 



8693 

0003 A 8698 


BNE 

: XMO 11 



8695 

4C2387 


JMP 

I XM400 

• 

9 

NULL PATTERN -- NO MATCH. 

8696 

ADD A 05 

SXM01 1 

LDA 

LITMAT 

• 

9 

LITERAL MATCH? 

8696 

0012 A 86AF 


BNE 

: X M 0 2 0 

? 

YES. 

8690 

AUBE 


LDY 

TELN+2 

• 

9 

NO -- FORCE UPPER CASE ALPHA. 

869P 

618 C 

! XMO 1 2 

LDA 

(TELN),Y 

• 

9 

GET CHAR. 

8o A 1 

20919E 


JSP 

CLETTR 

• 

9 

IS IT A LETTER? 

86 A 4 

8004 A 86 A A 


BCS 

: XM015 

• 

9 

NO. 

86 A 6 

29DF 


AND 

AUC 

m 

9 

YESS -- FORCE UPPER CASE. 

86A6 

918C 


STA 

C TELN ) # Y 



86 A A 

C 6 

S X M o 1 5 

INY 


• 

9 

NEXT CHAR. 

86 Ab 

C46F 


CP Y 

TELN+3 

% 

9 

DONE? 

86 AD 

COFO A 8b9F 


BNE 

SXM012 

} 

NO. 



; THROUGHOUT 

THE MAIN LOOP THE 

X REGISTER WILL * ACCEPT START INDEX. 

8feAR 

A68 A 

: XM020 

LDX 

ACLN+2 

9 

r 

ACCEPT BUFFER START INDEX. 

8681 

A48E 


LDY 

TELN+2 

9 

r 

SETUP MATCH PATTERN START INDEX. 


V 


PILOT 


ATARI 
H . 6 , 3 T f W AR T 


Cx*AC A|i«vbt tr V«r 1 , 



«6B3 

H18C 



L U A 

I # 

8696 

CM7C 



CMP 


8697 

POOS 

a 060E 


BNE 

# 

6o«9 

8SE2 



STA 


9690 

ce 



INY 


869C 

POOC 

a 86CA 


BNE 

# 

*6*fc 

B18C 


1XM050 

LOA 


86C0 

C91F 



CMP 

# 

86C2 

DO OC 

a 86D0 


9NE 


86C4 

E6 



I N X 

m 

86C5 

C8 



In Y 


8oCb 

E486 



CPX 

0 

86C6 

F 059 

A 8 723 


6EQ 


86CA 

C48F 


:XM060 

CPY 

0 

86CC 

F055 

A 8723 


BEQ 


86CE 

DOEE ‘ 

*86BE 


BNE 

<• 

86D0 

84A6 


J X M i 0 0 

STY 


6602 

64 A2 



STY 


8bD4 

8 o A i 



STX 


8606 

868m 



ST X 


86D6 

E6FE 



INC 


86D A 
86PC 
860 E 
8680 


A 4 A d 
86 A 6 
C48F 
8037 


S X M l 2 0 


A 8 7 1 9 


LDY 

INC 

CRY 

BEG 


) 


%• 


8682 

B 18 C 

LD A 

8684 

C5E2 

CMP 

8 686 

F 0 3 1 A 8 7 1 9 

BEQ 

86E8 

A48A 

LDY 

8 6 F A 

E6fi A 

INC 

868C 

C 488 

CPY 

86EE 

F 0 0 4 a 86F4 

BEQ 

66 F 0 

PI 88 

CMP 

86F2 

F 0 86 A 86DA 

BEQ 

86F4 

A5A2 SXM140 

LD A 

86 F6 

fib Ab 

STA 

86F8 

86 A 1 

INC 

86 FA 

A5A1 

LD A 

86 FC 

8b8A 

STA 

86 FE 

CbfiB 

CMP 

8700 

D0D8 A 86DA 

BNE 

8702 

A4A2 

LDY 



(TCtN).t 
• V B A R 

: xvoso 

*FOEL 

1 XM060 

(TELN)# V 
♦CRIGHT 
: XMl 00 


ACLM-3 
! XM40Q 

TELN+3 
: XM400 

: x**050 

X TEN P 
TE^F+l 

TEMP 

ACLN+2 

PATCHP 

XTEMP 
XTEMR 
TELN+3 
: XM300 

( TELN ) * Y 
MFDEL 
: XM3 0 0 

ACLN+2 
ACLN+2 
ACLN+3 
: X M 1 4 0 

(ACLN),Y 

SXM120 

TEMP+1 
XTENP 
TEMF 
T F V, P 

ACLN+2 

ACLN+3 

:XMi?o 

TEMP+1 
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CHECK FOR ALTERNATE FIElC DELIMITER. 

NO ALTERNATE SPECIFIED. 

SET ALTERNATE. 

SKIP OVER vertical bar, 

(BRA) . 

GET 1ST CHAR OF OPERAND. 

RIGHT ARROW? 

NO. 

YES -- SKIP FIRST CHAR IN ACCEPT BUFFER. 
SKIP OVER RIGHT ARROW TOO. 

NULL ACCEPT BUFFFR? 

YES -- NO MATCH. 

NULL OPERAND? 

YES. 

NO (BRA), 

MATCH DATA INDEX (INNER LOOP). 

MATCH DATA INDEX (OUTER LOOP), 


INCREMENT MATCH FIELD NUN 8ER , 

SEE IF ALL OF PATTERN HAS MATCHED. 


YES. 

NOT SURE. 

YES. 

NO -- MORE DATA TO MATCH? 

NO -- AT END OF BUFFER. 

YES -- COMPARE DATA TO PATTERN. 
SO FAR SO GOOD. 

RESET MATCH PATTERN INDEX. 

INCREMENT 'ACC6UF' INDEX. 



\ 


r 


INCREMENT 


' TEXBUF 9 


INDEX TO NEXT FIELD. 


ATAkI caw AC Assembler \/er 
PHUT -- h.B. STEwART 


8704 

810L 

:XM160 

LUA 

(TELN) , Y 

8706 

C48F 


CP Y 

TELN+3 

8706 

F 0 0 9 A 87 1 3 


9EQ 

: XM200 

870A 

C8 


I NY 


8 7 0 H 

C5E2 


CMP 

MFDEL 

8700 

D0F5 *8704 


BNE 

i XM160 

87 0 F 

C40F 


CPY 

TtLN+3 

8 711 

DO HD A 86D0 


BNE 

J XM1 00 

8 7 1 3 

A 9 0 0 

JXM200 

LD A 

AO 

871b 

0bFE 


STA 

MATCHF 

8717 

F 0 0 A A 8 7 23 


BEQ 

J XM400 

8719 

A5 A 1 

SXM300 

LD A 

TEMP 

8 7 1 B 

8 L' 3 3 0 5 


STA 

NATCHX 

8 7 1 E 

Ab8 A 


LUA 

ACLN+2 

8720 

8D3405 


STA 

WATCHX+1 

6723 

A4 AC 

SXM400 

LD Y 

x r EM P + 1 

8725 

A900 


LD A 

A 0 

0727 

658 A 


STA 

ACLN+2 

8729 

4 C 1 b 9 F 


JMP 

SCNEOL 
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; END OF MATCH PATTERN OATA? 

; YES -- NO MATCH. 

) KEEP SCANNING. 

? END OF MATCH STATEMENT? 

; no. 

? NO MATCH -- RESET FLAG. 

; C BRA ) , 

; SAVE START 8, END INDICES TO MATCH FIELD ... 
? ... FOR 'XMWSP'. 

; RESTORE INPUT LINE INDEX. 

? CLEAR LINE INDEX. 

t SCAN TO END OF INPUT LINE & RETURN. 





- 


PILOT 
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8 7 ?C 


8/2 C 207086 
87?F 4C3587 


PROC 

9 

; XMWSP •• MATCH WITH STRING PRODUCTION COMMAND PROCESSOR 
9 

XMATSX JS« XMATX 

JMP JXM005 


3 7 32 

2 0 to L 8 6 

XMt-vSP 

J3R 

XMATCH 

9 

FIRST DO ALL OF MATCH COMMAND. 

8735 

DO 35 A 876C 

: XM 005 

BNE 

: X M 0 9 0 

• 

9 

SYNTAX ERROR. 

8737 

A592 


LD A 

EXEC 

m 

9 

EXECUTE MODE? 

8739 

F 0 3 1 A 8 7toC 


BEG) 

S XM090 

• 

9 

NO — DONE (SYNTAX SAME AS NATCH) , 

873b 

A5Ft 


LD A 

N4TCHP 

? 

WAS MATCH SUCCESSFUL? 

8730 

P02D A 8 7 6 C 


BED 

: XMQ90 

• 

9 

NO -- ALL DONE. 

873F 

84 A 6 


STY 

X1EMP 



8 7^1 

A980 


LD A 

# ATRSTR 

• 

9 

'STRING" ATTRIBUTE. 

8743 

6D6605 


STA 

ATRTYP 



8746 

8 A 


TX A 


• 

9 

NOW SET SLEFT = DATA FROM ACCEPT START 

8747 

AC3305 


LD Y 

MATCHX 

• 

9 

... TO START OF MATCH - 1, 

8 7 4A 

A20U 


LDX 

alftstg-stab 



874C 

206D87 


JSR 

VAKSTG 



8 74 F 

0017 A 8 768 


BNE 

: XM060 

? 

ERROR, 

8751 

AD3305 


LD A 

MATCHX 

• 

9 

THEN SET SMATCH = DATA FROM MATCH. 

8754 

A L 05 


LD Y 

MATCHX+ 1 



8757 

A205 


LUX 

AMATSTG-STA8 



8759 

206087 


JSR 

MAKSTG 



875C 

D 0 0 A A 8766 


BNE 

: XM080 

• 

9 

ERROR. 

875E 

AD3405 


LD A 

MATCHX+1 

• 

9 

THEN SRIGHT s DATA FROM MATCH +1 ... 

8761 

A 486 


LOY 

ACIN+3 

9 

9 

... TO END. 

6763 

A206 


LDX 

ARITSTG-STA8 



8765 

206D87 


JSR 

MAKSTG 



8768 

08 

;XM080 

PHP 


9 

9 

SAVE CC. 

8769 

A4AB 


LD Y 

XTENP 

9 

9 

RESTORE INDEX. 

876B 

28 


PLP 




8 76C 60 

:XM090 

RTS 


• 

9 

RETURN WITH CC SET. 


876D 

85C4 

MAKSTG STA 

DP + 2 

? DEFINE 

DATA 

PORTION. 

676F 

84C5 

STY 

DP + 3 




8771 

4588 

LD A 

ACLN 




8773 

6bC2 

STA 

DP 




8775 

A589 

LD A 

AClN+1 




8777 

85C3 

STA 

DP + 1 




8779 

PD8F67 

IDA 

STAb,X 

; DEFINE 

NAME 

PORTION, 

877C 

85C1 

STA 

NP + 3 




877E 

E 6 

INX 





87 7F 

66C0 

STX 

NP + 2 




8781 

A98F 

LD A 

# L C K STAB 




8783 

85BE 

STA 

NP 





CWOl MVC'f 

8783 85BE 


L V A 

sta 


* LOW S 7 A 0 
NP 


ATARI CAMAC Assembler Ver 1.0A 


PILOT 
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8 785 
8787 

A987 

858F 


LD A 
STA 

A HIGH STAB 
NP+1 

8789 

20AD9E 


JSR 

setsvl 

878C 

4C0599 


JMP 

SINSRT 


= 878F 

STAB = 

* 


578F 

054C454654 
= 0005 

LFTSTG 
LSEND = 

Dti LSENDf 'LEFT * 

★-STAB 

8794 

0040415443 

= 0 0 00 

MATSTG 
MiSEnD = 

Db MSEND. 'WATCH' 

★-STAB 

879A 

1152494748 
= 0011 

RITSTU 
RSEND = 

DB RSEND, 'RIGHT' 

★-STAB 
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; NAMED STRING VARIABLE LIST. 

? INSERT STRING & RETURN WITH CC SET. 

; MATCH STRING NAME TABLE, 
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8 7 A 0 PROC 

C ’ 

? XNEwV -- NEW VARIABLES COMMAND PROCESSOR 


8 7 A 0 4592 

XNEwV 

LD A 

EXEC 

t 

EXECUTE MODE? 

67A2 PQ12 A 8 786 


BEO 

: XN090 

} 

SYNTAX SCAN ONLY. 

8 7 A J A584 


LD A 

S2H 

• 

9 

CLEAR MOD VARIABLES. 

8 7 A o 8502 


STA 

S2L 



8 7 A d A 50 5 


LD A 

S2H+1 



0 8 7 A A 8583 


STA 

S2L+1 



8 7 A C 208198 

m 


JSR 

CLOSER 

; 

CLOSE IOCBS 3 THROUGH 7. 

m 

6 7 A F A 5 F F 


LOA 

RUN 

9 

9 

RUN MODE? 

8781 DO 03 A 87B6 

% 


BNE 

: XN090 

9 

9 

YES -- DON'T PRINT 'READY'. 

6783 202C85 


JSR 

RDYMES 

9 

9 

NO -- PRINT 'READY', 

* 8 786 

XNE090 





879b A900 

:XNQ90 

LD A 

*f 0 

• 

9 

SET CC FOR EXIT. 

6788 60 


RTS 


9 

9 

RETURN WITH CC SET, 

w 

6789 

• 

PROC 





/ 

? XNEW 

9 

- - NEW 

PROGRAM PROCESSOR 



8789 F0F6 A 8786 

r 

XNEw 

B£Q 

XNE090 

? 

SYNTAX SCAN ONLY, 

879B 20C087 


JSR 

CLRPRG 

• 

f 

CLEAR THE PROGRAM STORAGE AREA. 

878E FOEO A 67A0 


BEO 

XNE'AV 

• 

r 

(BRAD NOW CLEAR THE VARIABLES ALSO 

87C0 A5AE 

CLRPRG 

LD A 

S1L 

? 

YES -- CLEAR PROGRAM STORAGE AREA. 

87 Ck 85eo 


STA 

S1H 



«7C4 A5AF 


LD A 

S1L + 1 



8 7Co 8581 


STA 

S1H+1 



87C8 A9FF 


LD A 

# 5 F F 

• 

9 

NO CONTINUATION. 

6 7C A 80*305 


STA 

NOCONT 



8 /CD A 90 0 


LD A 

*0 



87 CF 8D4D05 


STA 

USTKP 

9 

9 

CLEAR USE STACK. 

8702 60 


RTS 


; 

RETURN WITH CC AND A s ZERO. 


8703 


; 

f XCALL 

PROC 

-- CALL 

MEMORY 

LOCATION PROCESSOR 


8703 

20D49F 

} 

XCALL 

JSR 

E x° 

; ADDRESS 

SHOULD FOLLOW, 

8706 

8706 

A5<>2 

FOOd A 8 7E5 


LOA 

PtO 

EXEC 
I XC090 

; EXECUTE 

; no. 

MODE? 


96 TYA 

41 m Pn A 


8 7D A 
8708 


SAVE THE LINE INDEX FOR THE USER 


870 A 96 T Y A 

67DB 48 PM A 


# 
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870C 

20E687 


JSR 

: XC100 

87DF 

68 


PL A 


87E0 

A8 


TAY 


87E1 

5b 


CLI 


87E2 

oa 


CLD 


87E3 

A900 


LD A 

AO 

87E5 

60 

!XC090 

RTS 


87 Eb 

6C9300 

SXC100 

JMP 

(EXPSTK) 



t SAVE THE. LINE INDEX FOR THE USER. 


1 . 0 A Paye 7 6 

DliPILOT, 


? "OFF WE GO, INTO THE WILD BLUE YONDER". 

? UN8ELIEVF.ABLE, TH£ USER RETURNED. 

J RESTORE THE LINE INDEX. 

I JUST IN CASE I 
? DITTO. 

; SET CC FOR EXIT. 

? RETURN WITH CC SET. 

; TOO LATE TO CHANGE YOuP RIND. 
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87E9 PROC 

; 




? XUSE 

• 

-- USE 

COPLAND PROCESSOR 



87E9 

F0 24 A 88 0 F 

XUSE 

8EQ 

XJMP 

? 

LET # XJMP # PERFORM SYNTAX CHECK. 

87E6 

A5FF 


LD A 

RUN 

• 

F 

IF IMMEDIATE -- DON'T PUT ANYTHING IN STACK 

87ED 

Fold A 96 0 A 


BED 

SXU100 



87EF 

AE4D05 


LUX 

USTKP 

• 

f 

USE STACK POINTER. 

87F£ 

E030 


CPX 

&USTKSZ 



87F4 

F011 A 88 0 7 


BEQ 

: XU090 

? 

STACK FULL. 

8 7 Fo 

A564 


L D A 

NXTLN 

; 

NEXT LINE ADDRESS TO USE STACK, 

87 F8 

906605 


STA 

USE STK # X 



8 7 F b 

A 585 


LD A 

NXTLNil 



87 FD 

9D6C05 


STA 

USESTK+1 , X 



860 0 

E6 


I NX 




8801 

E 8 


I N X 




8802 

8t4D05 


STX 

USTKP 



8805 

DOOD A 88 1 4 


6NE 

XJP005 

• 

F 

REST OF COMMAND IS JUST LIKE 'J: ' (BRA) . 

88 0 7 

A 98 6 

SXU090 

LD A 

FU80ERR 

• 

STACK OVERFLOW ERROR. 

8809 

60 


RTS 




880a 

8D4DQ5 

JXU100 

STA 

USTKP 

} 

CLEAR USE STACK. 

86 0 D 

F 005 A 86 1 4 


BEQ 

XJP005 

• 

F 

(BRA) . 


PILOT 


- “ h . b . 


ATARI CA^AC Assembler Ver 
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D 1 : PILOT • 


# 


880b 


PROC 


9 

; YJHP -- jyyp COMMAND PROCESSOR 


88 0 F 

• 

9 

0003 A 88 1 4 XJMR 

BNE 

XJP005 

i EXECUTE MODE. 

8611 

4CD39E 

JMP 

SCNLBL 

? SCAN OVER LABEL & RETURN 




? *** 

external 

ENTRY POINT 

CFROM 

'XJMPM' & 'XUSE') *** 

8814 

20139F 

XJP005 

JSR 

SLR 



8817 

C8 


INY 


• 

SKIP OVER 

8818 

84C4 


STY 

DP + 2 

• 

9 

SETUP 'DP' TO POINT TO JUMP LABEL. 

861a 

20C69E 


JSR 

SCECA 

• 

9 

SCAN TO END OF LABEL. 

86 ID 

64C5 


STY 

DP + 3 



88 1 F 

A580 


LD A 

ININ 



8621 

85C2 


STA 

DP 



8823 

A58 1 


LD A 

INLN+1 



86 25 

65C3 


STA 

DP + 1 



8627 

209F9E 


JSR 

STMLST 

• 

9 

SETUP TO SCAN STATEMENT LIST. 

88 2 A 

6 4 A B 


STY 

XTEMP 

• 

9 

SAVE INPUT LINE POINTER. 

862C 

A23A 

:XJ03Q 

LDX 

BLP-DTAB 

• 

9 

CHECK FOR END OF STATEMENT LIST. 

862E 

20139A 


JSR 

SEND 



8831 

F 0 4 0 A 667 3 


eta 

5XJ200 

• 

9 

END OF LIST -- LABEL NOT FOUND. 

8633 

A 0 0 6 


LD Y 

*6 

9 

9 

CHECK FOR PRFSENCE OF LABEL. 

8835 

B 1 8 A 

SXJ032 

LD A 

CLP) ,Y 



8637 

C920 


CMP 

A * ' 

• 

9 

BLANK? 

8839 

D 0 0 3 A 683E 


BNE 

: XJ034 

9 

9 

NO. 

8838 

C 6 


INY 


• 

SKIP LEADING BLANKS, 

863C 

D 0 F 7 A 8835 


BNE 

: X JO 32 

• 

CBR A ) , 

883E 

C92 A 

: X J034 

CMP 




88^0 

0029 A 8860 


BNE 

: XJ060 

• 

9 

NO -- TRY NEXT STATEMENT, 

e*U2 

C6 


INY 



YES -- SETUP 'MR' TO POINT TO STATEMENT LABEL 

6843 

84C8 


STY 

MP + 2 

9 

9 

8645 

B 1 B A 

S X J 0 4 0 

LDA 

CLP) r Y 

• 

9 

SCAN TO END OF LABEL, 

8647 

C6 


INY 



END OF ATOM CLABEL)? 

8846 

20B69E 


JSR 

CKEOA 

9 

9 

8646 

D0F6 A 8645 


BNE 

: X J04 0 

9 

9 

NO. 

864 D 

66 


DEY 




864E 

64C9 


STY 

M P + 3 



8650 

A56A 


LDA 

LP 

} 

SETUP POINTERS FOR ... 

8852 

85Ct> 


STA 

MP 

9 

9 

'SCOMP' CALL ... 

8854 

6564 


STA 

NXTLN 

9 

9 

... & STATEMENT TO EXECUTE. 

8656 

A5PB 


LDA 

LP + 1 



8656 

85C7 


STA 

MP+i 



885 A 

6585 


STA 

NXTLN+1 




PILOT 
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8650 

205599 

JSR 

SC OMR 

• 

9 

COMPARE LABELS. 

865 F 

DO 0 A *8S6B 

bne 

: X J 0 6 0 

• 

9 

NO MATCH. 

8861 

A4AB 

LDY 

XTEMP 

m 

9 

RESTORE INPUT LINE POINTER. 

8663 

S4FF 

STY 

RUN 

9 

t 

SET RUN MODE EVEN IF ALREADY SET 

8665 

A 9 C 0 

LDA 

AO 



88 67 

30^305 

ST A 

NOCONT 



666 A 

60 

NTS 


9 

9 

RETURN WITH CC SET. 

6666 

A 2 3 A ! X J060 

LDX 

ALP-DTAB 

9 

9 

GET POINTER TO NEXT STATEMENT. 

8660 

20AA9A 

JSR 

SNXTI 



6670 

4C2C86 

JMP 

:xJ030 



8673 

A 4 C 4 : X J200 

LDY 

DP 1 2 

9 

9 

RESTORE LINE INDEX, 

8675 

A 9 0 A 

LOA 

AUNDERR 

9 

9 

UNDEFINED LABEL. 

8877 

60 

NTS 


} 

RETURN WITH CC SET. 
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86 7ti 


• 

PROC 






9 

? xjmpm 

• 

-- JUMP 

ON PATCH 

RESULT C 

OMMAND PROCESSOR 

8678 

POOC A 66 86 

9 

XJMPM 

BNE 

: X J 0 3 0 

• 

f 

EXECUTE MODE. 

867a 

200396 


J SR 

SCNLBL 

• 

9 

SCAN OVER FIRST LABEL. 

8870 

0026 A 86A5 


BNE 

; XJ090 

% 

9 

NOT EVEN ONE LABEL -- ERROR. 

887P 

20C39E 

:XJ01Q 

JSR 

SCNLBL 

• 

9 

SCAN OVER REMAINING LABELS. 

8882 

F0F6 A 867F 


BEQ 

SXJ010 



8684 

001C A 86A3 


BNE 

: X J 05 0 

} 

NORMAL RETURN. 


8886 

A5FE 

SXJ03Q 

LDA 

NATCHF 

• 

9 

to A S PREVIOUS MATCH SUCCESSFUL? 

8886 

FOU A 8698 


BEQ 

: XJ043 

0 

9 

NO -- NO JUMP. 

868 A 

A A 


TAX 


• 

9 

YES -- USE FIELD U AS LOOP COUNT. 

8686 

CA 

: x JO 4 o 

DEX 




88 6 C 

DO 1 0 A 889E 


BNE 

: X J 0 4 5 

• 

9 

NOT THERE YET. 

86PE 

20079F 


JSR 

SKPSEP 

• 

9 

PRE-VALIDATE NEXT LABEL, 

8691 

20F99E 


JSR 

ChKTRP 

; 

END OF STATEMENT? 

889a 

FOOF A 88 A5 


BEQ 

! X J090 

• 

9 

YES -- O.K. 

86<?b 

20 1 486 


JSR 

XJP005 

} 

LET 'XJMP' DO THE DIRTY WORK. 

88 99 

D 0 0 A A 86A5 


BNE 

: x J090 

• 

9 

ERROR. 

889p 

aC169F 

: X J043 

JMP 

SCNEOL 

• 

9 

SCAN TO END OF STATEMENT & RETURN 

889E 

20D39E 

:XJ045 

JSR 

SCNLBL 

9 

9 

SCAN OVER LABEL, 

88 A 1 

F0E6 A 868B 


BEG 

SXJ040 

• 

9 

THERE to AS ONE THERE, 

88A3 

A 9 0 0 

: X J050 

LDA 

#0 

9 

9 

TOO FEto LABELS IS O.K, 

86A5 

60 

: X J 090 

RTS 


? 

RETURN WITH CC SET. 
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0 1 tPILOT. 

86 A 6 


1 

; XDUMP 

; 

XDUMP 

PRCC 






-- STRING 4 NUMERIC 

VARIABLE DUMP COMMAND PROCESSOR 

86 Ao 

2Q139P 

JSP 

SLB 

} 

SKIP LEADING blanks. 

86A9 

20F99E 


JSR 

ChKTRM 

• 

9 

STATEMENT TERMINATOR? 

88 A C 

FQOC A 88BA 


BEG 

1X0020 

) 

YES. 

86AE 

C923 


CMP 

U 0 * 0 



88 R 0 

F 0 0 7 a 8889 


BEG 

1 X001 0 

t 

NUMERIC VARIABLES ONLY. 

86*2 

C 92 4 


CMP 

h 0 % 0 



8889 

F003 A 8889 


BtQ 

l X001 0 

• 

9 

STRING VARIABLES ONLY. 

8886 

A9C2 


L D A 

*IMFERR 

• 

9 

IMPROPER OPERAND. 


8868 60 

:XD009 RTS 


; RETURN WITH CC SET. 

8809 C6 

1XD010 INY 



886 A 85 A0 

1XD020 STA 

XTENP 

? SAVE OPERAND 

88BC A592 

LD A 

EXEC 


880fc F0F6 A 86 98 

6EQ 

: XD009 

? SYNTAX SCAN. 

88C0 84 AC 

STY 

XTEMP+1 

? YES -- SAVE INPUT LINE INDEX. 

88C2 A 9 7 U 

LD A 

FCLEAR 

1 CLEAR SCREEN. 

86C4 208294 

JSR 

CHOT 


56 C 7 CEFE02 

DEC 

CSPFLG 

? SET DISPLAY CONTROL CHARS FLAG. 


; DUMP ALL OF 

THE STRING 

VARIABLES 

86CA ASA6 

LD A 

XTEMP 

; CHECK OPERAND. 

B8CC C 923 

CMP 


} NUMERIC ONLY? 

86CE F013 A 88E3 

PEQ 

I XD050 

? YES. 

8600 A 9 1 0 

LD A 

#16 

? PRODUCE STRING VARIABLE HEADER. 

8802 20FF84 

JSR 

MESSOT 


88D5 A 96 0 

LD A 

FATRSTR 

; STRINGS. 

86D7 606705 

STA 

DMPT YP 


860 A 208689 

JSR 

DMPVAR 



; DUMP ALL OF 

THE NUMERIC 

VARIABLES. 

86 OD A5A6 

L D A 

XTEMP 

} CHECK OPERAND, 

88PF C 924 

CMP 


? STRING ONLY. 

6661 FOOD A 66 F 0 

BEG 

: XD 06 0 

? YES. 

86E3 A 9 1 1 

SXD050 L D A 

#17 

; NUMERIC VARIABLE HEADER. 

88E5 20FFB4 

JSR 

MESSOT 


86E6 A 94 0 

LD A 

* A TR NL m 

; NUMERIC. 

86EA 8D6705 

STA 

DMPTYP 


86ED 208689 

JSR 

DMPVAR 



/ 


DUMP 


THE I/O'S. 
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88 F 0 

A5 A 6 

: XD060 

LD A 

XTEFP 

• 

t 

CHECK OPERATOR, 

88F? 

A4 AC 


LDY 

XTENP+1 

• 

f 

RESTORE INDEX. 

86 F 4 

20F99E 


JSR 

CHKTRN 

• 

r 

TERMINATOR? 

88 F 7 

D e 7 D A 8976 


6NE 

J XD090 

• 

t 

NO -- OR '4', 

88F9 

A923 


LD A 

435 

• 

f 

I/O HEADER. 

88FB 

2 0 F F B 4 


JSR 

MESSOT 



86FE 

A920 


LD A 

# A T R 1 0 

} 

I/O'S 

8 V 0 0 

8D6705 


STA 

DMPTYP 



8903 

208689 


JSR 

DMP V AR 





? DU^F 

THE i 

CONTENT CP THE STACK 

• 


890b 

A9 1 2 


LD A 

418 

• 

9 

PRODUCE USE STACK HEADER. 

8908 

20FFB4 


JSR 

MESSOT 



890b 

AE4005 


LUX 

USTKP 

• 

9 

STACK EMPTY? 

890E 

F01D A 892D 


BEG 

SXD088 

• 

YES. 

8910 

20A29F 

: XD087 

JSR 

SPACE 

• 

9 

MO -- PRINT LINE 4(S). 

8913 

BD6905 


LD A 

USESTK-2 r X 

• 

9 

GET POINTER TO STORED LINE 

891b 

8566 


STA 

POINT 



8918 

B06A05 


LD A 

USESTK-lrX 



891b 

85B7 


STA 

POINT+1 



8910 

206C9F 


JSR 

GTLNNO 

• 

9 

EXTRACT LINE NUMBER. 

8920 

86 AD 


STX 

XTEMPt2 



8922 

A25C 


LDX 

#L INENO-DTAB 

7 

PRINT LINE NUMBER. 

8924 

20149E 


JSR 

DEC ASC 



8927 

A6AD 


LDX 

XTEMP+2 



8929 

CA 


DEX 




892 A 

CA 


DEX 




8926 

D0E3 A 89 1 0 


6NE 

JXD087 

9 

9 

MORE TO PRINT. 



; DUMP 

THE i 

GRAPHICS PARAMETERS 



892D 

A 9 1 3 

: X D 0 8 8 

LD A 

4 19 

) 

PRODUCE GRAPHICS HEADER. 

892F 

20FFB4 


JSH 

MESSOT 



8932 

A 95 8 


LUA 

4 ' X ' 


; XsFLOOR(<VALUE>) . 

8934 

208294 


JSR 

CHOT 



8937 

208189 


JSR 

PRTEGS 

9 

9 

# «» # 

• • 

893 A 

A26C 


LDX 

4GX-DTAB 



893C 

20149E 


JSR 

DEC ASC 



893 F 

209D9F 


JSR 

SPACES 



8942 

A 959 


LD A 

4'Y' 


; Y=FLQOR(<VALUE>) . 

8944 

208294 


JSR 

CHOT 



8947 

208189 


JSR 

PRTEGS 

9 

9 

• • 

894A 

A26F 


LDX 

4GY-DTAB 



894C 

20149E 


JSR 

DECASC 



89 4 F 

209D9F 


JSR 

SPACES 



8952 

A 9 1 4 


L D A 

420 

9 

9 

THETA=<VALUE>. 

8954 

20FFB4 


JSR 

MESSOT 




PILOT 
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r 


6957 

4272 

LLX 

»TMET A-DTAB 


8959 

2U1 A9E 

JSR 

CECASC 




; REPORT ON 

FREE MEMORY 


8950 

A 9 1 5 

LDA 

» 2 1 

1 

895£ 

20FF64 

JSR 

MESSCT 


8961 

403 2 

LDY 

4S2L-0T4B 

; 

8963 

20A29D 

JSR 

CLOACA 


896c 

4030 

LDY 

4S1H-DTAB 


8968 

208 1 9D 

JSR 

C SUB A 


896B 

A 9 0 1 

LDA 

41 


896D 

200990 

JSR 

DADDS 


8970 

20199E 

JSR 

DEC A SC 

; 

8973 

20969F 

JSR 

NEWLIN 


8976 

20989F 

:XD090 JSR 

NEWLIN 

a 

9 

8979 

F t FE02 

INC 

DSPFLG 

; 

897C 

A 4 AC 

LDY 

XTEMP+ 1 

; 

897E 

A 9 0 0 

LDA 

40 

? 

8980 

60 

RTS 


• 

9 


8981 

A93D 

PRTEGS LDA 

4' = ' 

a 

9 

8983 

408294 

JMP 

CHOT 

a 

9 


PREt MEMORY s <vALUE>. 
<VALUE> = # S2L' - ' S 1 H ' ♦ 1. 


PRINT RESULT. 


BLANK LINE AFTER DUMP, 

RESET DISPLAY CONTROL CHARS FLAG 
DONE -- RESTORE INPUT LINE INDEX 
SET CC FOR EXIT. 

RETURN WITH CC SET. 


PRINT ... 

... & RETURN. 


8986 


PPOC 

DMPVAR -- COMMON CODE FOR 'XDUMP'. 


CALLING SEQUENCE: 


DMPTYP = ATTRIBUTE TYPE 


JSR DMPVAR 


8986 

20AD9E 

DMPVAR 

JSR 

SETS VL 

m 

t 

POINT TO VARIABLE LIST. 

8989 

A 23 A 

: DM0 1 0 

LDX 

4LP-DTAB 



898b 

20 1 39 A 


JSR 

SEND 

• 

r 

END OF STRING STORAGE? 

898E 

F 06 0 A 69F 0 


BEQ 

: DM090 

. 

/ 

YES -- DONE. 



; *s* 

LDX 

plp-dtab 



8990 

?U8 69m 


JSR 

SATTR 

m 

r 

CORRECT TYPE? 

8993 

C06705 


CMP 

DMPTYP 



8996 

D050 A 89E3 


8NE 

:DM080 

. 

r 

NO. 

8996 

A238 


LDX 

4NUMBER-DTAB 

9 

/ 

MOVE POINTER TO 'NUMBER 

899 A 

A 03 A 


LDY 

ALP-DTAb 



899C 

20459A 


JSR 

DMOV I 




899F 

A924 

LDA 

#'$' 


89 A 1 

2C6705 

BIT 

DMPTYP 


89A4 

3004 A 8 9 A A 

8MI 

: DM020 

; STRING 

89A 6 

A923 

LDA 


? I/O. 

89A6 

5003 A 89AD 

PVC 

S DM030 



PILOT 
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# 


89 A A 

208294 

; DM020 

JSR 

C HOT 

• 

, 

PREFIX NAME FOR STRING, NUMERIC 

89 AD 

A 0 02 

J DMQ30 

LDY 

*2 



89 A p 

2 0 F 1 89 


JSR 

PRTSFD 

• 

, 

PRINT NAME. 

8<>B2 

2U8189 


JSR 

PKTEQS 

? 

SEPARATE NAME AND DATA WITH 's' 

8985 

2C6705 


BIT 

DMPTYP 



8988 

3 0 1 E A 89D8 


BMI 

: DM040 

II 

, 

STRING. 

898 A 

C 8 


INY 


• 

r 

numeric OR I/O. 

8983 

B1B6 


LD A 

(NUMBER), Y 



8«BD 

5006 A 89C5 


eve 

! DM0 32 

• 

, 

I/O. 

899F 

A A 


TAX 


• 

, 

NUMERIC. 

89C0 

C6 


INY 




89C 1 

eiee 


LD A 

(NUMBER) , Y 



89C 3 

7007 A 89CC 


B V 8 

: OM035 

9 

r 

(BRA) . 

89C5 

4 A 

8DM032 

LSR 

A 

) 

IOCB = # * 16. 

89Co 

4 A 


LSR 

A 



89C 7 

4 A 


LSR 

A 



89C8 

4 A 


LSR 

A 



89C9 

AA 


TAX 




89CA 

A 9 0 0 


LD A 

80 

• 

9 

MSB = 0. 

89CC 

85B9 

: DM035 

STA 

NUMBER tl 

• 

f 

MSS. 

89CE 

8696 


STX 

NUMBER 

• 

f 

LSB . 

6900 

A238 


LDX 

#NUM8ER-DTAB 



89 D2 

20149E 


JSR 

DEC A SC 

• 

9 

PRINT VALUE. 

8905 

4CE589 


JMP 

: DM050 



89D8 

A 92 7 

: DM0 4 o 

LDA 

4SQU0TE 

0 

9 

DELIMIT STRING DATA WITH '. 

890 A 

206294 


JSR 

CHOT 



890D 

20 F 1 8 9 


JSR 

PRTSFD 

0 

9 

PRINT STRING DATA. 

89E 0 

A927 


LDA 

A3GL0TE 

0 

9 

CLOSING DELIMITER. 

89E2 

208294 


JSR 

CHOT 



89FS 

20969F 

! DM050 

JSR 

NEWLIN 



89F8 

A23A 

: DM080 

LDX 

alp-dtab 

0 

f 

INCREMENT TO NEXT VARIABLE. 

89EA 

2 0 A A 9 A 


JSR 

SNXTI 



89ED 

4C8989 


JMP 

:DM010 



89 F 0 

6 0 

: QMQ90 

RTS 





89F1 


PRuC 



89F1 

8168 

PRTSFD LDA 

(NUMBER) , Y 

? GET NAME/DATA LENGTH. 

89F3 

AA 

TAX 



89F4 

F 0 1 2 A 8 A 08 

BEO 

! PF090 

? DONE. 

89F6 

C6 

SFF010 INY 



99F7 

D002 A 89 F B 

BNE 

: PF020 



INC NUMBER+1 


INDEX WRAPAROUND -- 


89 F 9 E6B9 


BUMP POINTER. 
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89Fd 

6 1 B 6 

: PF 020 LD A 

(NUMBER) , Y 

• 

9 

GET CHARACTER, 

c 

89FD 

208294 

JSR 

C HOT 




8A0Q 

C A 

DEX 


• 

9 

DONE? 

. ^ 

8 A 0 1 

D 0 F 3 A 89F6 

BNE 

5PF010 

m 

9 

NO. 


8 A03 

C 8 

INY 

: P F 0 9 0 

• 

9 

YES. 


8 A 0 A 

D002 A 8 A 08 

BNE 



r 

8 A 0 b 

E689 

INC 

NUMBERS 1 

• 

9 

INDEX WRAPAROUND 

• 

8A08 

6 0 

SPF090 PTS 






BUMP POINTER. 
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8A09 PROC 

f 

f XPALET -- COLORS COPLAND PROCESSOR 


8 A 0 9 

F 0 1 3 A 8A1E 

vpalet 

bEQ 

i XP090 

t 

SYNTAX SCAN ONLY. 


8 A 0 8 

A200 


LDX 

no 

• 

9 

SETUP TO SCAN COLOR NAPE TAbLE. 

8A0U 

20AFA5 

: XPO 1 0 

JSR 

PRNTCL 

• 

9 

PRINT COLOR NAPE FROP 

table. 

8 A l 0 

209D9F 


JSR 

SPACES 




8 A 1 3 

E 8 


INX 


} 

SKIP OVER 'SB' ... 


8 A 1 4 

Ed 


INX 


• 

9 

... & COLOR VALUF. 


8 A 1 5 

E 07 1 


CPX 

APCTUP-PCTAB 

• 

9 

END OF T ABLE? 


8 A 1 7 

0 0 F A A 6A0D 


BNE 

: x P o l o 

i 

NO -- CONTINUE. 


8 A 1 9 

20969F 


JSR 

NEWLIN 




8 A t C 

A900 


LD A 

no 




8 A 1 E 

60 

i XP090 

RTS 


• 

9 

YES -- RETURN WITH CC 

SET. 




• 

; XCOLRS -- PS 
? 

COMMAND 

PROCESSOR 


8 A 1 F 

FOFD A 8 A 1 £ 

XCOLRS 

BEQ 

: XP09Q 

? 

SYNTAX SCAN ONLY. 

8A21 

200896 


JSR 

TSTPOD 

? 

GRAPHICS SPLIT SCREEN? 

8A24 

C904 


CMP 

#GRSS 



8 A2b 

D 0 79 A 6A A 1 


BNE 

: XC092 

? 

NO -- ERROR. 

8A 28 

84 AB 


STY 

XTEPP 

• 

9 

SAVE Y REG. 

8 a2 A 

A 9?7 


LDA 

P 39 

; 

'PENS: 

8A2C 

20FFB4 


JSR 

PESS0T 



8A2F 

A201 


LDX 

#1 

• 

SETUP TO EXAMINE COLOR ASSIGNS. 

8 A 3 1 

EC09O5 

: XC005 

CPX 

NCOLRS 

• 

9 

END OF TABLE? 

8 A 3 4 

F 0 02 A 8A38 


BEQ 

; XC01 0 

? 

NO. 

8 A36 

9017 A 8A4F 


8CS 

: XC025 

} 

YES -- ALL DONE WITH PENS. 

6 A3d 

8A 

SXC010 

TX A 


? 

GET PEN NUMBER . 

8 A 39 

4930 


E OR 

WO' 

• 

9 

CONVERT TO ASCII. 

0A36 

208294 


JSR 

CHOT 



8A3E 

208189 


JSR 

PRTEQS 

? 


8 A4 1 

E CP A 05 


CPX 

NXTCLR 

• 

9 

PEN ASSIGNED? 

8 A 4 4 

6003 A 8 A 49 


BCS 

: XC020 

} 

NO. 

8 A 4 6 

201 AA5 


JSR 

PRCLNP 

9 

t 

YES -- PRINT COLOR NAME. 

8A49 

20909F 

:xcoao 

JSR 

SPACES 



8A4C 

Ed 


INX 


} 

NEXT PEN. 

8A4D 

D0E2 A 8A3i 


BNE 

i XC005 

? 

CBP A ) , 

8A4F 

20989F 

SXC025 

JSR 

NEWLIN 



8a52 

A 92 8 


LDA 

tt 40 

• 

9 

'BACKGROUND: 


* 

f 


PILOT 
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8a54 20FFB4 

JSR 

NES30T 



0 A 5 7 A20 0 

LDX 

#0 

• 

t 

BACKGROUND SLOT NUMBER. 

8A59 ? 0 1 A A 5 

JSR 

PRCLNN 

• 

} 

PRINT COLOR NAME. 

8A5C A 9 7 F 

LD A 

A T A a 



8A5E 208294 

JSR 

CHOT 



8A61 A 92 A 

LD A 

842 

• 

t 

'NODE ! ' 

8 A63 20FFB4 

JSR 

NESSOT 



8A66 AD3705 

LD A 

GSWCOE 



8A69 85 A 9 

STA 

TEMP2+2 



8 A68 A 9 0 0 

LD A 

AO 



8A6D 85 A A 

STA 

TEMP2+3 



8A6F A229 

LDX 

3TENP2+2-DTAB 



6A7I 20149E 

JSR 

DEC A SC 

? 

PRINT NODE NUNBER. 

8 A 74 2 0 989 F 

JSR 

NEWLIN 



8 A 7 7 A 929 

LD A 

#41 

• 

9 

'TURTLE PEN: '. 

8 A 79 20FFB4 

JSR 

NESSOT 



8A7C AD 1 305 

LD A 

PEN 



8 A 7 p 1004 A 8A85 

0PL 

; XC030 

• 

9 

PEN DOWN, 

8A81 A27 1 

LDX 

APCTUP-PCTA& 

• 

9 

'UP'. 

SA83 D 0 0 2 A 8A87 

8NE 

J XC040 

• 

i 

CBRA). 

8A85 A 2 75 SXC030 

LDX 

APCTDN-PCT AB 

• 

f 

'DOWN' . 

8 A 8 7 2 0 4 F A 5 SXC040 

JSR 

PRNTCL 

• 

9 

PRINT 'UP' OR 'DOWN'. 

8A8A A 92 F 

LD A 

n '/' 

• 

9 


8A8C 208294 

JSR 

CHOT 


NOW PRINT PEN NUNBER. 

8A8F A D 1 3 0 5 

LD A 

PEN 

• 

9 

8A92 290F 

AND 

# $ 0 F 



8 A 94 4930 

EOR 

#'0' 

• 

9 

CONVERT TO ASCII. 

8A96 208294 

JSR 

CHOT 



8A99 20989F 

JSR 

NEWLIN 



8A9C A 4 Ab 

LDY 

XTEVP 


SET CC FOR EXIT. 

8A9E A 90 0 

LD A 

#0 

• 

9 

8 A A 0 60 SXC090 

RTS 




8 A A 1 A983 JXC092 

LD A 

#nrcerr 

; 

COMMAND ONLY VALID IN GRSS 

8 A A 3 60 

RTS 





8 A A 4 


PHOC 





; XENVIR -- IS 

CCNN AND 9 

TURTLE ENVIRONMENT STATUS 

8 A A 4 

F077 A 8blD 

XENVIR REQ 

! XE090 

; SYNTAX SCAN ONLY. 

8 A A 6 

20Btf 96 

JSR 

TSTMCC 

; GRAPHICS SPLIT SCREEN? 

8AA9 

SAAB 

C 904 

D071 A 8blE 

CMP 

BNE 

*GRSS 

SXE092 

) NO -- ERROR. 

9 A AQ 

84 AB 

STY 

XTE"P 

) SAVE Y REGISTER. 
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8 A A F A92B 

IDA 

443 

8AB1 20FFB4 

JSR 

MESSOT 

8A84 A200 

LDX 

80 

BABb 8 b A C 

: XEO 1 0 STX 

XTEMP+1 

8AB3 8D0D80 

:XE02 0 LUA 

EOGTABfX 

0 ABB E8 

I NX 


0 ABC C980 

CMP 

0S8 

BABE DOFS A 8 A88 

9NE 

:XE020 

8 AC 0 BD0D80 

LDA 

EDGTAB,X 

8AC3 E6 

I N X 


0AC4 CD5E05 

CMP 

EDGRUL 

8 AC 7 DOED A 8A86 

BNE 

: XEO l 0 

8AC9 A6AC 

LDX 

XTEMP+1 

8ACB BD0D60 

: XE030 LDA 

EDGTABrX 

8 ACE 3006 A 8AD6 

BMI 

: XE040 

8 ADO 208294 

JSR 

CHOT 

8 A D 3 E 8 

I N X 


8A04 D0F5 A 8AC8 

BNE 

: XEO 3 0 

8 ADo A97F 

SXE040 LDA 

0TAB 

8 ADS 208294 

JSR 

CHOT 

8 ADB A92C 

LDA 

0 4 4 

8ADD 20FFB4 

JSR 

MESSOT 

8 AEG AD5D05 

LDA 

SPEED 

8AE3 65 A 7 

STA 

TEMP2 

8 AE5 A 9 0 0 

LDA 

00 

0 A E 7 85 A 6 

STA 

TEMP2+1 

•3AE9 A227 

LDX 

0TEMP2-DTA8 

8 AEB 20149E 

JSR 

DEC A SC 

8 AEE 20989F 

JSR 

NEWLIN 

SAFI A92Q 

LDA 

045 

8AF3 20FFB4 

JSR 

MESSOT 

8AF6 18 

CLC 


8 A F 7 A 0 0 1 

LOY 

01 

8AF9 6ECE05 

;XEQ50 RQR 

WALLS+1 

8 A FC 6ECD05 

ROR 

WALLS 

8AFF 9 0 0 F A 8B1Q 

6CC 

: XE060 

8601 84 A 7 

STY 

TEMP2 

8803 A900 

LDA 

00 

0BO5 85A8 

STA 

TEMP2+1 

8807 A227 

LDX 

0TEMP2-OTAB 

8009 20149E 

JSR 

DECASC 

8B0C 20A29F 

JSR 

SPACE 

880 F 38 

SEC 


0310 Cd 

: XE06 0 INY 


8 811 98 

T Y A 


8812 4912 

EOR 

017+1 


? 'EDGE : ' , 


? SCAN TO NAME DELIMITER, 


? SEE IF THIS IS THE RULE IN EFFECT, 

t NO -- SCAN TO NEXT NAME, 

; YES -- BACKUP TO NAME TEXT. 

? GET A CHARACTER. 

; DELIMITER. 

? OUTPUT CHAR. 

? (BP A ) . 

? 'SPEED! '. 


? 'WALLS: '. 


; NOT A WALL SELECT. 

? A WALL SELECT f PRINT POSITION 0 


? COMPARE WITHOUT ALTERING THE CARRY, 
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8bl4 D0E3 A 8AF9 


BNE 

SXE050 



8816 20969 F 


JS« 

NEWLIN 



8819 A4AB 


LDY 

XTEMP 



8 b 1 B A 9 0 0 


LOA 

#0 



8B1D 60 

: XE090 

RTS 




8b 1 E A 983 

:XE092 

LOA 

#I\RCEKR 

• 

9 

COMMAND VALID ONLY IN GRSS, 

6620 60 


RTS 




8521 


PKOC 




8621 A20 A 

XT V 

LDX 

#ONCFFX 

• 

9 

CHECK FOR 'ON' OR 'OFF', 

8623 20A87C 


JSR 

SBCMA7 



862 o D 0 1 A A 363C 


BNE 

: XT090 

• 

f 

ERROR. 

8826 A592 


LD A 

EXEC 

• 

9 

EXECUTE MODE? 

662A F010 A 8B3C 


BEQ 

! XT090 

9 

9 

NO, 

8B2C 8A 


TX A 


• 

9 

ON OR OFF? 

8620 FOOE A 863D 


BEQ 

J X T 1 0 0 

9 

9 

OFF. 

8B2F A0E005 


LOA 

DM AS A V 

9 

9 

ON -- TV OFF NOW? 

8632 FU08 A 863C 


BEQ 

SXT090 

• 

9 

NO, 

3634 6D2F02 


STA 

DM ACT 

• 

9 

YES -- RESTORE PRIOR STATE 

8 637 A 9 0 0 


LD A 

#0 



8639 8DE005 


STA 

DMAS A V 



663C 60 

;XT090 

RTS 




8B30 AD2F02 

5 XT 1 00 

LD A 

DM ACT 

9 

9 

OFF -- IS TV ON NOW? 

8640 FOFA a 863C 


BEQ 

:XT090 

} 

NO. 

8B42 8DE005 


STA 

DMAS A V 

9 

f 

YES -- SAVE STATE. 

864 5 A90 0 


LD A 

#0 

• 

f 

DMA OFF. 

8847 8D2F02 


STA 

DMACT 



884a 60 


RTS 





PILOT 
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8d4B PROC 

; 

? COMPUTE COMMAND PROCESSOR 


8b4E> 

206E81 

XCMPUT 

JSR 

ATOM 

seat 

D06 A A 0B B A 


6NE 

: XC900 

8b5 0 

C904 


CMP 

ANVAR 

8b52 

FOOb A 865F 


8EQ 

: XC100 

86*54 

C980 


CMP 

ABPTR 

885b 

F 0 0 7 A 885P 


8EQ 

: xC 1 00 

8b58 

2918 


AND 

ASVAP+USVAR 

865 A 

D036 A 8B92 


BnE 

: XC200 

865C 

A 9 0 2 

: XC092 

LD A 

AIMPERR 

8B5E 

60 


RTS 




7 ARITHMETIC 

ASSIGNMENT 

865F 

85 Ab 

: XC 1 00 

ST A 

XTEMP 

8661 

20009F 


JSR 

CHKECS 

8864 

DUF6 A 8B5C 


BNE 

: XC 092 

8666 

A 5Bb 


LD A 

POINT 

8666 

46 


PHA 


8869 

A567 


LD A 

POINT+1 

8666 

4fc 


PHA 


866C 

C6 


INY 


86bD 

20D49F 


JSR 

EXP 

8670 

68 


pla 


0071 

8567 


STA 

POINT+1 

867 3 

66 


PLA 


8674 

8566 


STA 

POINT 

8676 

A592 


LD A 

EXEC 

8678 

F 0 4 0 A 8BB A 


BEG 

! XC900 

867 A 

84 AC 


ST V 

XTEMP+1 

8B7C 

A U 0 0 


LD Y 

AO 

8B7E 

A593 


LDA 

EXPSTK 

8680 

9 1 Bo 


STA 

(POINT) fY 

8886 

A5AB 


LDA 

XTEMP 

8684 

C98 0 


CMP 

A8P7R 

8686 

F 0 05 A 8b8D 


BEQ 

JXC120 

8b86 

C6 


I IV Y 


6b89 

A594 


LDA 

expstk+i 

8688 

9166 


STA 

(POINT)fY 

8B8D 

A 4 AC 

SXC120 

LD Y 

xtemp+i 

868 F 

A90 0 


LQ A 

AO 


Page 90 

01 i P I LOT , 


; 


CHECK FOR TAPGET VARIABLE. 
INVALID ATOM. 


NUMERIC ASSIGNMENT. 

m 

BYTE POINTER? 

YES -- SAME AS NUMERIC VARIABLE. 

% 

STRING ASSIGNMENT? 

YES. 


NO 


I 


ERROR. 


< 


? SAVE TARGET TYPE. 

? CHECK FOR ASSIGNMENT OPERATOR NEXT. 
7 ASSIGNMENT SYNTAX ERROR. 

7 SAVE TARGET ADDRESS. 


? PREPARE TO EVALUATE EXPRESSION. 
? EVALUATE EXPRESSION, 

7 RESTORE TARGET ADDRESS. 


7 EXECUTE MODE? 

? NO. 

? SAVE LINE INDEX. 

7 STORE RESULT TO TARGET. 

7 SEE IF TARGET IS POINTER TC BYTE. 
7 YES -- ALL DONE. 

? NO -- NOW MSB, 

7 RESTORE LINE INDEX. 

7 COMPUTE WAS A SUCCESS. 
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c 









0d9i 60 


RTS 







t STRING ASSIGNMENT 




8B<56 

20009P 

: > C 2 0 0 

JSR 

CHKEQS 

; 

ASSIGNMENT OPERATOR? 


A095 

H0C5 A 8B5C 


bNE 

I XC092 

• 

9 

NO •• ERROR. 

% 

8897 

20C18B 


JSR 

SAVIT2 

i 

SAVE 'NP' To 'Mp' TEMPORARILY 

* 

8B9 A 

C 6 


I N V 


; 

SKIP OVER 's'. 


8 8 9 y 

? 0 A 7 A 0 


JSK 

TEXP 

i 

evaluate TEXT EXPRESSION. 

► 

8»9 1 

A 592 


LD A 

EXEC 

; 

EXECUTE MODE? 


88 A u 

FOlb A 0EB A 


PEC 

: XC900 

? 

NO -- DON'T DO ASSIGNMENT, 


88A2 

8 A AC 


STY 

XTENP+l 




8BA4 

20058C 


JSR 

RESIT2 

• 

/ 

RESTORE 'NP' FROM 'MP'. 




; *** EXTERNAL 

ENTRY POINT FROM 


X ACCPT ' ★ ★★ 


8b A 7 

A2A2 

XCM300 

LOX 

ADP-DTAB 

• 

9 

NOVE 'TELN' TO 'DP'. 


3bA9 

A 0 OC 


LD Y 

A fELN-OTAB 




86A0 

20309a 


JSR 

PMOVE 




8b AE 

A 9 8 0 


LD A 

AATPSTP 

9 

9 

'STRING' ATTRIBUTE. 


8680 

606605 


STA 

A TRT YP 




8683 

200599 


JSR 

SINSRT 

9 

9 

INSERT STRING. 


8606 

Ob 


RHP 





86B7 

A 0 A C 


LOY 

XTEMP+J 




8699 

26 


PLP 





88BA i 

bO 

; XC9QQ 

RTS 


? 

RETURN WITH CC SET. 


868 b 

6668 A5A6 SAVIT 

866D 2918 

836 F F 0 36 A 86F7 

86C 1 A 592 SAVIT2 

86C3 F032 A 88F7 

86C5 98 

88C6 48 

86C 7 A97B 
88C9 85C6 

80CB A 9BE 
88CD 65C7 
8bCF A 0 02 
8BD 1 8C4205 

8BD4 A4C 0 
860b C4C1 
8BD8 FOIE a 8BF8 


PHOC 

LPA 

XTEMP 

AND 

AS V AR+USV AR 

8EQ 

S SV090 

LDA 

EXEC 

8EQ 

;SV090 

T Y A. 
PHA 

LDA 

A LOW NAMBUF 

STA 

MP 

LDA 

A HIGH NAM8UF 

STA 

MP+1 

LOY 

A2 

STY 

N A M L N G 

LD Y 

NP + 2 

CRY 

NP + 3 

BEG 

: SV1 00 


; STRING TARGET? 

} NO. 

} EXECUTE MODE? 

? NO. 

; SAVE Y REGISTER. 

; NAME SAVE AREA. 

; TARGET STRING START INDEX. 

J SOURCE STRING START INDEX. 
; NULL SOURCE? 

; YES -- ERROR. 


PILOT 
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8bDA 

CRC 1 

: S V o 1 0 

CRY 

NP + J 

; 

END OF STRING? 

6BDC 

F 0 1 7 A 86F5 


BEG 

: SV080 

• 

9 

YES. 

8bPt 

81 BE 


LDA 

(NP),Y 

; 

NO -- GET A CHAR. 

8HE0 

Co 


INY 




8 BE 1 

8 A A 1 


STY 

TEMP 



8BE 3 

20B69E 


JSR 

CKEOA 

• 

9 

END OF ATOM (STRING NAME)? 

8BE6 

F010 A 8B F 8 


PEG 

ISV100 

• 

9 

YES -- ERROR. 

8bE8 

AL«205 


Lb Y 

NA^LNG 

• 

9 

STORE A CHAR. 

8BEB 

91C6 


STA 

(MP),Y 



8BED 

C8 


INY 




8BEE 

8C4205 


STY 

namlng 



8BF1 

ARA1 


LDY 

TEMP 



8BF3 

DOES A 8BDA 


BNE 

2 8 V 0 1 0 

? 

TRY AGAIN (BRA), 

8B F 5 

68 

: SVG80 

PL A 


• 

r 

RESTORE Y REGISTER. 

88F6 

A 6 


tay 




88 F 7 

60 

: SV090 

RTS 




8BF6 

68 

2 S V 1 0 0 

PLA 


9 

9 

RESTORE Y REGISTER. 

8BF9 

A8 


TAY 




6BF a 

A 98 2 


LDA 

PATMERR+NS 

9 

9 

INVALID STRING NAME. 

8b FC 

4 C 3 A 7 A 

2SV190 

JMP 

PSTCP 

9 

9 

ABORT COMMAND. 


8BFF 



PROC 



8BFF 

A5AB 

RESIT 

LDA 

XTEMP 

f STRING TARGET? 

8C01 

2918 


AND 

n SVAR+USVAR 


8C03 

FOU A 8C 1 6 


BEG 

2 RS090 

? NO. 

8C05 

A97B 

RESIT2 

LDA 

tt LOW NAMBUF 


8C07 

856E 


STA 

NP 


8C09 

A9BE 


LDA 

A HIGH NAMBUF 


8C0B 

8 58 F 


STA 

NP 1 1 


8C0D 

A902 


LDA 

#2 


8C0F 

85C0 


STA 

NP + 2 


ecu 

AD4205 


LDA 

NAMLNG 


8C14 

85C1 


STA 

NP 1 3 


8 C t 6 

60 

2RS090 

RTS 
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SCI 7 


# 


# 

# 


PROC 

f 

? XGRAPH -- GRAPHICS COMMAND PROCESSOR 


*Ct 7 

A892 

8C1 9 

FOOF A 8C2A 

8C1B 

AD140S 

8C1E 

D 0 0 A *8C2A 

8C20 

2C60AF 

8C23 

84 A 8 

8C25 

20! 095 

8C28 

A4AB 

8C2A 

20398C 

8C2D 

20139F 

8C30 

C 8 

8C31 

C93B 

8C33 

FOEc A 8C 1 7 

8C35 

86 

8C36 

A 9 0 0 

8C36 

60 


XGRAPH 


Ll> A 
BEQ 

LOA 

BNE 

JSR 

STY 

JSR 

LDY 


: XG020 JSR 

JSR 

INY 

CMP 

BEQ 

DEY 

LOA 

RTS 


EXEC 
: XG020 

GRFLAG 
: XG020 

GPIMT 
X TEN P 
GsOPEN 
X TENP 

GCOMND 

SLB 

#'? ' 

XGRAPH 


ft 0 


t EXECUTE MODE? 

; no. 

; YES -- GRAPHICS SCREEN OPEN? 

; YES. 

} initialize graphics parameters. 

; OPEN GRAPHICS SCREEN. 

? PROCESS ONE GRAPHICS SUB-COMMAND. 
; SEE IF MULTIPLES. 

} YES. 

? NQ -- ALL DONE. 

? CLEAR CC FOR NORMAL EXIT. 

; RETURN WITH CC SET. 


8C39 


8C39 

8C3C 

8C3E 

ec^o 

8C43 


PROC 

; 'GCQMND' PROCESS ONE GRAPHICS SUB-COMMAND OR NESTED GROUP, 


20139F 

C92E 

F 022 A 8C62 

206E81 
CO 1 A A 8 C 5 F 


GCOMiND 


8C^5 2986 


JSR 

CMP 

BEQ 

JSR 

6NE 

AND 


SLB 
ft 0 ( ' 
SGC100 

ATOM 

SGC090 


? SKIP LEADING BLANKS. 
i CHECK FOR GROUPING WITH 'C # & 


; CHECK ATOM TYPE. 
; ATOM ERROR. 


#NUN+N V AR+BPTR ? IF NUMERIC, THEN TREAT AS ITERATION COUNT, 


8C47 

C02A A 6C73 

BNE 

: GC2 0 0 

; YEP, 

SC49 

A204 

LDX 

FGTABX 

2 

0 

1 

1 

8C46 

20AB7C 

JSR 

SBCMAT 


«C^E 

DOOF A 8C5F 

BNE 

i GC090 

; NO -- 

8CS0 

BDAA80 

LDA 

SBDTA6/X 

; SETUP 


8C53 

8C56 

SC59 

8C5C 

8C5F 


8P0B05 

BDA08O 

8DOC05 

4C0 AOb 

4C3A7A 


:GC090 


STA 
LD A 
STA 

JMP 

JMP 


GJUMP+1 
SBDTAg+l ,X 
GJUMP+2 

G JUMP 

PSTCP 


GO TO G-RQUTINE & RETURN. 

FATAL ERROR -- STOP EXECUTION. 


; THIS SECTION HANDLES NESTED GROUPS. 


8C62 

8C63 


C8 

2U178C 


: GC 1 0 0 INY 
JSR 


XGRAPh 


; SKIP OVER '('. 

; PROCESS ONE SUB-COMMAND OR NESTED GROUP, 
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8C*>6 

2 0 1 39 F 

JSR 

SLP 



8C69 

C 8 

INY 




6C6A 

C929 

CMP 

#') ' 

l 

MATCHING PAREN? 

8C6C 

F 0 4 a A 8C 98 

BEQ 

SGC390 

} 

YES -- 0 • K • 

8C6E 

88 

DEY 


} 

NO -- ERROR. 

8C6F 

A902 

LD A 

ANSTERR 



8 C 7 1 

D 0 EC A 8C5F 

BNE 

: GC090 

• 

9 

(BRA) . 



J THIS SECTION 

HANDLES 

ITERATIONS 





} -kirk 
• 

external 

ENTRY POINT *** 



8C73 


G1TER 





8C73 

AS92 

: GC200 

LD A 

EXEC 

• 

9 

EXECUTE MODE? 

8C75 

F 0 34 A 8C AB 


BEQ 

: GC300 

• 

9 

NO -- SYNTAX SCAN ONLY. 

8C7/ 

A5P8 


LD A 

NUMBER 

; 

SEE IF ZERO ITERATIONS. 

8C79 

0569 


ORA 

number+i 



8C76 

FQ2E A 8C A B 


BEQ 

: GC300 

} 

YES -- SCAN OVER ITERATION BODY 

8C7D 

A5DE 


LD A 

LS 

} 

NO -- SAVE COUNTER C'LS') ... 

8C7F 

48 


PHA 




8C80 

A5DF 


LD A 

LS + 1 



8C82 

48 


PHA 




8C83 

98 


T Y A 


• 

9 

... & LINE INDEX. 

8C84 

46 


PhA 




8C85 

ABB 6 


LD A 

NUMBER 

• 

9 

GET LOOP COUNT TO 'LS'. 

8C87 

85DE 


STA 

LS 



8C39 

A 569 


LD A 

NUMBER+1 



8C8B 

85DF 


STA 

LS + 1 



8C8D 

20398C 

: GC220 

JSR 

GCOMND 

• 

9 

PROCESS ONE COMMAND. 

8C90 

A25E 


LDX 

# L S - D T A B 

m 

9 

DECREMENT ITERATION COUNT. 

8C92 

20129D 


JSR 

DDCRI 



8C95 

A5DE 


LD A 

LS 

} 

CHECK FOR RESULT = 0. 

SC97 

05DF 


ORA 

LS + 1 



8C°9 

Fu 0 6 A 8C A 3 


BEQ 

; GC24 0 

• 

9 

DONE. 

8C96 

207E9F 


JSR 

ABRTCK 

• 

9 

CHECK FOR OPERATOR ABORT. 

8C9E 

68 


PLA 


9 

9 

NOT DONE -- RESTORE SCAN INDEX 

8C9F 

46 


PHA 




8CA0 

A8 


TAY 




8C A i 

DOEA A 8C 80 


BNE 

: GC220 

9 

9 

(BRA) EXECUTE BODY AGAIN, 

8C A 3 

68 

: G C 2 4 0 

PLA 


9 

9 

THROW AWAY STARTING INDEX. 

8CA4 

66 


PLA 


t 

9 

RESTORE 'LS'. 

8 CAE 

65DF 


STA 

LS+1 



8CA7 

68 


PLA 




8CA8 

85DE 


STA 

LS 



8CAA 

60 


RTS 





PILOT 
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; THIS 

SECTION 

syntax scans the 

BODY OF AN ITERATION. 

8CAb A 592 

s GC 30 0 

LUA 

EXEC 

• 

9 

SAVE CURRENT VALUE. 

8CAD 46 


pha 




8CAE A 90 0 


LD A 

A 0 

• 

9 

SETUP FOP SCAN ONLY 

8C«0 8592 


STA 

EXEC 



8CB2 2u 398C 


JSR 

GCOl^ND 

; 

*** RECURSIVE CALL **★ 

8CB5 68 


PLA 


; 

RESTORE MODE. 

8CB6 8592 


STA 

EXEC 



8C88 60 

: GC39 0 

RTS 


; 

PETURN WITH CC SET. 

8(J89 

• 

PROC 





# 

; GREPT 

• 

-- 'REPEAT' GRAPHICS SUBCOMMAND 

8CB9 206E81 

GREPT 

JSR 

ATOM 

} 

REPEAT COUNT MUST FOLLOW . 

8C8C 0009 A 8CC7 


6NE 

* GR 0 9 0 

; 

ERROR. 

8C8E 2986 


AND 

#NUM+N V AR+BPTR 

? 

NUMERIC DATA? 

8CC0 F003 A 8CC5 


BEG 

:GRoea 

• 

9 

NO -- ERROR. 

8CC2 4C738C 


JMP 

GITER 

• 

9 

YES -- PROCESS REPEAT LOG 

8CC5 4902 

:GP088 

LD A 

#IMPERR 



6CC7 4C3A7A 

: GR090 

JMP 

PSTOP 







PILCT 
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flCCA PhOC 


? XSOUND -- SOUND COMMAND PROCESSOR 
; 


8 CC A 

A206 

XbOUNO 

LOX 

*mUREGS*2 

} 

SETUP INDEX TO A OF REGS • 

8 CCC 

20079F 

: XSO 1 0 

JSR 

skpsep 

• 

9 

SKIP SEPARATORS & GET CHAR. 

8 CCF 

20F99E 


JSR 

CHKTRM 

• 

9 

terminator? 

*C02 

F 052 A 8Q26 


BEG) 

: XS080 

• 

9 

YES -- ALL DONE. 

scoa 

C928 


CMP 

*'(' 

• 

9 

LEFT PAREN? 

8 CDo 

F Q 4 8 A 8D23 


REQ 

: X 8 0 5 0 

t 

YES -- START OF NOTE LIST. 

9CD8 

C929 


CMP 

U 0 ) ' 

m 

r 

RIGHT PAREN? 

8C0 A 

F04A A 8D26 


6 EQ 

: XS080 

f 

YES -- END OF NOTE LIST. 

scnc 

C93D 


CMP 

n # = # 

• 

9 

EQUAL SIGN? 

SC DE 

F 022 A 8 D 02 


SEQ 

: XS020 

; 

YtS -- NO CHANGE FOR VOICE. 

SCFO 

C928 


CMP 

A # ' 

• 

9 

PLUS SIGN? 

8CE2 

F02 1 A 80 05 


BEQ 

: XS030 

• 

9 

YES -- INCREMENT NOTE. 

8 CF 4 

C92D 


CMP 

n ' 

m 

9 

MINUS SIGN. 

8 CEo 

F02C A 8D 1 4 


BEQ 

: xsoao 

• 

9 

YES -- DECREMENT NOTE. 

8 CE 8 

20578D 


JSR 

GTNOTF 

• 

9 

GET NUMERIC VALUE. 

8 CES 

0064 A SD5 1 


BNE 

: XS090 

} 

ERROR. 

8 CED 

A 566 


LD A 

NUMBER 

• 

9 

NOTE := NUM. 

8 CEF 

85 Ad 

: XSO 1 5 

STA 

XTEMP 

m 

9 

SAVE NOTE * 

8 C p 1 

A592 


LD A 

EXEC 

? 

EXECUTE MODE? 

SC F 3 

F 0 C 7 A SCFC 


SEQ 

: XSO 1 7 

• 

9 

NO. 

SC FS 

A5AB 


LD A 

XTEMP 

• 

9 

YES. 

8CF7 

0980 


ORA 

A$S0 

• 

9 

SET BIT FOR NOT A POINTER. 

3C e 9 

9U1405 


STA 

AuOIOR-1 t X 



SC FC 

CA 

:XS017 

DEX 


} 

MORE OPERANDS ALLOWED? 

8 CFD 

C A 


OE X 




SCFE 

DOCC A 8CCC 


BNE 

S X S 0 1 0 

? 

YES. 

8 D 00 

F024 A 8D26 


BEQ 

5 XS080 

0 

9 

NO -- SEE IF DURATION (BRA). 

8002 

C 6 

SXS020 

INY 




8003 

Du F 7 A 8 CFC 


BNE 

: xso 1 7 

• 

9 

(BRA) . 

8005 

C 8 

: X S 0 3 0 

INY 




8006 

205760 


JSR 

GTNOTE 

• 

9 

GET INCREMENT VALUE. 

8009 

0046 A 805 1 


BNE 

: X S 0 9 0 

• 

9 

ERROR. 

8006 

BD1405 


LD A 

AUDI0R-1#X 

l 

NOTE :=NQTE + NUM. 

SDOE 

1 6 


ClC 




8D0F 

6588 


ADC 

NUMBER 



8011 

4CEFSC 


JMP 

: XS015 




80 14 C 8 ;XS04Q INY 
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SO 1 5 

205780 


JSR 

GTNCTE 

8016 

0037 A 8051 


PNE 

: XS090 

801 A 

001405 


LOA 

A UD I OR 

8010 

38 


SEC 


80 1 E 

E 808 


SBC 

number 

80 20 

4CEF8C 


JMP 

JXS015 

8023 

C6 

: XS050 

INY 


8024 

0 0 A 6 A 8C CC 


BNE 

: X S 0 1 0 

8026 

A592 

;XS080 

LD A 

EXEC 

8028 

F 0 1 A A 8D44 


BEQ 

: XS064 

802 A 

E 0 0 0 


CPX 

AO 

802C 

FOOF A 8D3D 


BEQ 

:XS083 

802E 

A 9 0 0 

; XS082 

LD A 

AO 

6030 

901405 


ST A 

A U D I 0 R 1 

8035 

9 D F £ D 1 


ST A 

A U D F 1 - 1 

8D36 

90FFD1 


STA 

AUDC 1 -i 

8D39 

CA 


DEX 


0D3A 

CA 


OEX 


8038 

D0F1 A 8D2E 


6NE 

:XSO 82 




8030 

i 8 4 AS 

:XS083 

STY 

XTEMP 

8D3F 

204F84 


JSR 

TONES 

8D42 

A 4 AS 


LOY 

XTEMP 

8044 

B 1 6 0 

; XS084 

LDA 

C INLN) r Y 

8046 

C929 


CMP 

A ' ) # 

8048 

D 0 0 4 A 8D4E 


BNE 

:XS088 

8 04 A 

Cd 


INY 


8048 

4C548F 


JMP 

X W A I T 

8D4E 

A 9 0 0 

:XS088 

LDA 

AO 

8050 

60 


PTS 


8051 

20B49P 

:xso90 

JSR 

AUDCLR 

8054 

A902 

XIN080 

LDA 

AIMPERR 

8D5o 

60 

X I N 0 9 0 

RTS 


8057 



PROC 


8057 

8b A 8 

GTNOTE 

ST X 

XTEMP 

8059 

206E81 


JSR 

ATOM 

805C 

0008 A 0O66 


PivE 

I6N090 

805E 

2986 


AND 

ANU V +N VAR+BPTR 

8060 

F005 A 8067 


PEQ 

! GNQ92 

8062 

A 6 A 3 


LDX 

XTFvp 


Paqe 97 

01 SPILOT. 

i GET DECREMENT VALUE. 

; ERROR. 

; NOTE 1= NOTE - NUM. 

; SKIP OVER LEFT RAREN. 
; ( 6R A ) • 


; EXECUTE MODE? 

; NO. 

; CLEAR UNSPECIFIED VOICES, 
? CLEAR SOUND REGISTERS. 


? DURATION FOLLOWING? 

; NO. 

; YES -- SKIP OVER LEFT PAREN. 
? PROCESS DURATION AS A PAUSE. 

? RETURN WITH CC SET, 

? CLEAR ALL SOUND REGS. 

; RETURN WITH CC SET. 

; SAVE X REGISTER. 

} GET OPERAND. 

? ERROR. 

? ERROR. 

; RESTORE X REGISTER. 


e 


3062 


Ab A6 


LDX 


XTFVP 


9 

ATAkI C A M A C Assembler Ver 1,0 



PILOT 

-- H,b, 

STEWART 



• 

8064 

A90 0 


LDA 

A 0 

• 

8D66 

60 

: GN090 

RTS 


• 

8067 

A9 02 

:GN092 

LDA 

AIMPERR 


8069 

60 


RTS 




; RESTORfc X REGISTER. 
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ATARI CAVAC Asserrb 1 er Ver 
- h,6. STEWART 


PILOT - 
SOSA 


SOSA A V 0 4 
8D6C 2 0 P 09 7 
806F DOES a 8056 

8071 8oA 0 
8D7i 20079P 
807o 206£8 1 


1 ■ 0 A Pape 99 

D 1 JPILOT 


; xin 

; 

XIN 


PRCC 

- READ 

IDA 
JSR 
8 WE 

STX 

JSR 

JSR 


6079 DODb A 8D56 

BNE 

8076 

8 5A6 

STA 

8D70 

2990 

AND 

807F 

F0D3 A 8D54 

BEQ 

8081 

A 592 

LOA 

8D83 

F001 A 8056 

BEQ 

8085 

8 4 AC 

STY 

8097 

A o AQ 

LOX 

8089 

A 0 0 0 

LD Y 

8086 

8486 

STY 

8080 

A 0 2 0 0 5 

LOA 

8090 

C945 

CMP 

8092 

0004 A 8D98 

BNE 

8094 

96 

T Y A 

8095 

20A79F 

J3P 

8 098 

205397 • X 1 030 

JSR 

8 099 

C99B 

CM P 

6D9D 

FOOE A 8D AD 

BEQ 

SD9 F 

9 1 8 C 

STA 

8D A 1 

C 6 

INY 

80 A 2 

CO Ft 

CRY 

8DA4 

OOF2 A 6D98 

BNE 


3D A 6 205397 

9DA9 C 998 

3D A 8 D 0 F 9 a 8DA6 

8DAD 84 8 F 
8DAF AD2005 
8082 C945 

8DB4 0003 A 8D99 

8066 20A79F 


! XI 035 


S XI 040 


8099 

8D86 

8D6E 

6DC1 


A 90 1 
604605 
2OPB80 
4CC785 


X I 045 


JSR 

CMP 

BNE 

STY 
LD A 
CMP 
BNE 

JSR 

LD A 
STA 
JSR 
JMP 


COVPAWO PROCESSOR 

•OREAD 
SCNDEV 
X I N 0 9 0 

XTE^PtS 
SKPSEP 
ATOP 
X IN090 


; RL AD DIRECTION, 

; CONVERT DEVICE SPEC TO IOCB INDEX. 
J ERROR, 

; SAVE IOCB INDEX. 
t SKIP OVER SEPARATOR. 

; FIND TYPE OF VARIABLE. 

; ERROR. 


XTEPP ? SAVE ATOM TYPE. 

•SVARtUSV AR+NVARtNULL+BPTR ; VALID TYPE? 
XIN080 ; NO. 


EXEC 
X I N 0 9 0 

X TEN P + 1 
XTENP+2 
#0 

TELN+2 

0PN8UF 

n # E ' 

: x 1030 


CRSNOP 

DIN 
4E0L 
: X 1 0 4 0 

(TELN), Y 

4TEXLNG 
: XI 030 

DIN 
4E0L 
S X 1 035 

TELN+3 

0PN8UF 

#'E' 

: X 1045 

CRSNOP 

41 

AXFLAG 
SAVIT 
X AC 024 


; EXECUTE MODE? 

; NO. 

} SAVE LINE INDEX. 

; GET IOCB INDEX. 

? INIT INDEX TO ACCEPT BUFFER, 


; SEE IF READING FROM TEXT SCREEN. 
? NO. 

; YES -- ENABLE CURSOR (Y = 0). 

? MAKE IT APPEAR, 

; GET A CHARACTER FROM DEVICE. 

? END OF LINE? 

? YES -- DONE. 


? BUFFER FULL? 

; no. 

? YES -- FLUSH TO EQL 


; SAVE STRING END INDEX. 

; READING FROM TEXT SCREEN? 

? NO. 

? DISABLE CURSOR AGAIN (A = $45). 

? SET ACCEPT LITERAL. 

? SAVE NAMF IF STRING TARGET. 

; GO TO ACCEPT CODE TO FINISH PROCESSING, 


8DC4 


PNOC 




ZD 

o 

X 

-- WRIIE 

COMMAND 

PROCESSOR 

8DC4 

A908 

r 

XOUT 

LD A 

*OWRIT 

• 

9 

8DC6 

20FD97 


JSR 

SCNDEV 

• 

9 

8QC9 

D 02b A 8DFb 


BNE 

5X0090 

; 

8DCB 

8b A 6 


ST X 

X T E M P 

• 

r 

8DCD 

8180 


LD A 

CINLN),Y 


8DCF 

20F99E 


JSR 

CHKTRM 

• 

9 

euDa 

F001 A 8DDS 


BEQ 

: X0005 

• 

9 

8004 

C8 


TNY 


• 

9 

8DD5 

20 A 7 AO 

SX0005 

JSR 

TEXP 

• 

9 



; *s* 

LD A 

EXEC 

• 

9 

8DD6 

F01C A 8DF 6 


BLG 

: X 00 9 0 

9 

9 

8DDA 

84 AC 


STY 

XTEMF+1 

• 

9 

8DDC 

AbAb 


LDX 

XT EM P 

9 

9 

8DDE 

A48E 


LD Y 

TELN+2 

• 

9 

8DE 0 

C48F 

SXOOlu 

CPY 

TELN+3 

} 

8DE2 

FO09 A 8DED 


BED 

: X0020 

9 

9 

8DE4 

89006C 


LD A 

TEX8UF, Y 

9 

9 

80E7 

205697 


JSR 

POUT 


8DE A 

C6 


INY 



8DEB 

D 0 F 3 A 8pE 0 


8NE 

5X0010 

9 

9 

8DED 

A 99fi 

: XQQ2G 

LD A 

AEOL 

9 

9 

80EF 

205897 


JSR 

DOUT 


8DF2 

A 4 A C 


LD Y 

XTEMP+1 


8DF4 

A900 


LD A 

AO 

• 

8DF6 

60 

: X0090 

RTS 


• 

9 


qe 100 

D 1 : P ILQT . 


WRITE DIRECTION. 

CONVERT I/O SPEC TO DEVICE INDEX. 

ERROR. 

SAVE I QCB INDEX. 

TERMINATOR FOLLOWING DEVICE SPEC? 

VES -- DON'T ADVANCE INDEX. 

NO — SKIP OVER SINGLE SEPARATOR. 

REST OF STATEMENT IS A TEXT EXPRESSION. 

EXECUTE MODE? 

NO. 

SAVE LINE INDEX. 

GET IQC8 INDEX. 

START OF TEXT EXPRESSION EVALUATION. 

DONE? 

YES. 

NO -- PUT CHAR TO DEVICE. 


(BRA) . 

TERMINATE RECORD. 


SET CC FOR NORMAL EXIT, 
RETURN WITH CC SET, 
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D1 :PILOT. 

8UF 7 


• 

PROC 






9 

; XDQNE 

• 

-- CLOSE 

COMMAND 

PROCESSOR 


8UF7 

A900 

9 

XDONE 

LDA 

#0 

• 

INVALID OPEN CODE MEANS CLOSE. 

8DF9 

20F097 


JSR 

SCNDEV 

• 

9 

CONVERT DEVICE SPEC TO ICCB INDEX, 

80FC 

Do09 A 8E07 


6NE 

: XD090 

? 

ERROR. 

8DFE 

A592 


LUA 

EXEC 

? 

EXECUTE MODE? 

SEO 0 

POOS A 8E07 


BEQ 

: XD090 

; 

NO. 

8t02 

203F97 


JSR 

DCLOSE 

• 

9 

YES -- CLOSE IOCB & DEVICE. 

8E05 

A900 


LDA 

no 

• 

9 

SET CC FOR NORMAL EXIT. 

8 E 0 7 

60 

IXD090 

RTS 


• 

9 

RETURN WITH CC SET. 



PILOT 
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8 E 0 8 


PROC 


SE08 20C297 
8E0B 0050 A 8E5D 


; XSSAV -- SAVE SCREEN COMMAND 

9 

XSSAV JSR SFNAME 

BlME : XS090 


PROCESSOR. 

? EXTRACT DEVICE/FILENAME 
; ERROR. 




8E0D 

20079F 

JSR 

SKPSEP 

8E1V 

A 592 

LDA 

EXEC 

8 1 1 2 

F 0 4 9 A 8E 5D 

BEG 

: XS090 


? SKIP SEPARATCR(S) . 

? EXECUTE MODE? 

? NO. 


8E14 A230 

8 E 1 o A 9 0 6 
8E 1 8 20F49b 


LOX # IOCB3 
LDA #OWRIT 
JSR DOPEN 


YES -- OPEN DEVICE FOR OUTPUT. 


8Ete 

A90B 

LDA 

#PUTC 

8E1D 

9U4203 

STA 

ICC0M,X 

8E20 

A230 

LUX 

#IOCB3 

8E22 

AD 1 405 

LDA 

GRFLAG 

8E25 

205897 

JSR 

DOUT 

8E26 

AD3705 

LDA 

GSMODE 

8E2B 

205697 

JSR 

DOUT 

8E2E 

AD5205 

LDA 

SPLTSC 

8E31 

205697 

JSR 

DOUT 

8E34 

AD5105 

LDA 

lettrsz 

8E37 

205897 

JSR 

DOUT 

8E3 A 

A 5 59 

LDA 

SAVMSC+1 

8E3C 

65F7 

STA 

ADRESS+1 

8E3E 

A900 

LDA 

UO 

8 E A 0 

85Fb 

STA 

ADRESS 

8E42 

84A6 

STY 

X TEMP 

8 £44 

A458 

LDY 

SAVMSC 

8E4o 

BlFb 

IXS010 LDA 

(ADRESS) 

8E4S 

205697 

JSR 

DOUT 

8646 

C6 

INY 


8E4C 

C0F8 A 8E4b 

BNE 

; xso i o 

8£4£ 

E6F 7 

INC 

ADRESS+1 

8E50 

A5F7 

LDA 

ADRESS+1 

8E52 

C56 A 

CMP 

RAMTOP 

8E54 

D 0 F 0 A 8E46 

BNE 

i XSO 1 0 

8E5g 

A4AB 

LDY 

XTEMP 

8E56 

203F97 

JSR 

DOLOSE 

8E56 

A 9 0 0 

LDA 

*0 

8E5D 

60 

JXS090 RTS 


8E5E 


PROC 



? SETUP IUC6 FOR PUT CHARACTER. 

? GRAPHICS SCREEN FLAG. 

; SAVE SCREEN MODE • 

? FULL/SPL.IT FLAG. 

? LETTER SIZE. 

? SETUP POINTER TO BOTTOM OF SCREEN. 


Y ? GET DATA BYTE. 

; OUTPUT IT. 


; DONE? 

? NO. 

? SET CC FOR NORMAL EXIT. 
? RETURN WITH CC SET. 


r 


XSLOAD 


LOAD SCREEN COMMAND PROCESSOR 


PILUT 

I' 
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8E5t 

2uCd 97 

XSLOD JSR 

SFNAN’E 

; 

EXTRACT DEVICE/FILENAME, 

8E61 

005F A 8E C2 

BNC 

: X S 0 9 0 

; 

ERROR. 

8E63 

A592 

LDA 

EXEC 

? 

EXECUTE MODE? 

8E65 

F 0 5 B A 8EC2 

BEQ 

: XS090 

• 

9 

NO. 

8E67 

A 23 0 

LDX 

AIOCB3 

f 

YES -- OPEN DEVICE FOR INPUT 

8 £6 9 

A 9 0 A 

LDA 

AOREAD 



8E6B 

20F496 

JSR 

DOPEN 



866E 

SAAB 

sty 

XTENP 



8E70 

A 9 0 7 

LDA 

AUETC 

} 

SETUP I OCB FOR GET CHARACTER 

8E72 

9D4203 

STA 

ICCGM, X 



8E75 

Ad30 

LDX 

A I0C63 



8E7 7 

205397 

JSR 

DIN 

• 

9 

GET GRAPHICS FLAG. 

8E 7 A 

80 1 A05 

STA 

GHFLAG 



8E7U 

205397 

JSR 

DIN 

• 

9 

GET SCREEN MODE. 

8E80 

8U3705 

STA 

GSMGDE 



8E83 

205397 

JSR 

DIN 

• 

9 

GET FULL/SPLIT FLAG. 

8E86 

8D5205 

STA 

SPLTSC 



8E89 

205397 

JSR 

DIN 

• 

9 

GET LETTER SIZE. 

SE8C 

8D5105 

STA 

LETTRS2 



8E8F 

20BB96 

JSR 

TSTNOD 

0 

9 

SEE IF TEXT/SMALL LETTERS, 

8 £92 

C90 1 

CMP 

ATXSL 



8E94 

000c A 8£9C 

BNE 

: XS005 

m 

f 

NO. 


8E9& 20 F 499 

JSR 

TXOPEN 

? 

YES. 

8E99 AC9F6E 

JMP 

; X S 0 0 7 



8E9C 201095 

: X S 0 0 5 JSR 

GSOPEN 

? 

OPEN SCREEN. 

8E9F A559 

: XSOO 7 LDA 

SAVNSC+ 1 

• 

9 

SETUP POINTER TO BOTTOM OF SCREEN 

8EA1 85F7 

STA 

ADRESS+1 



8EA3 A 9 0 0 

LDA 

AO 



SEA 5 85 Ft 

STA 

ADRESS 



8 1 A 7 A230 

LDX 

AI0C63 



8EA9 A 9 56 

LDY 

SAVMSC 



8EAB 205397 

JXS010 JSR 

DIN 



8EAE 9 1 F6 

STA 

C ADRESS ) t Y 



8E60 Cts 

INY 




8£9i DOFS A 8£ AB 

BNE 

: XSO 1 0 



8EB3 E6F7 

INC 

ADRESS+1 



8EB5 A5F7 

LDA 

ADRESS+1 



9EB7 C 56A 

CMP 

RAMTOP 

• 

9 

DONE? 

8E99 DOFO A 8£ AB 

BnE 

; XSO 1 0 

m 

f 

NO, 

8 EBB A4 AB 

LDY 

XTEMP 



SE8D 2Q3P97 

JSR 

DCLCSE 




8EC0 A V 0 0 


LDA #0 




8EC2 60 


:xso<?o 


PIS 


PILOT 
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EEC i PROC 

? 




? XDIR 

• 

9 

-- DISK 

DIRECTCRY COMMAND 

PROCESSOR 

8tC3 

2 0049 F 

XOIR 

JSR 

EXP 

• 

r 

GET DRIVE NUMBER. 

8tC6 

A592 


LOA 

EXEC 

m 

9 

EXECUTE MODE? 

8EC8 

F 0 3 4 A 8E F E 


BEG 

: XD090 

• 

9 

NO -- SYNTAX SCAN ONLY. 

8 EC A 

A20 7 


LUX 

A s DTLNG 

• 

MOVE OPEN TEMPLATE ... 

8ECC 

B0FE8E 

: XD005 

LD A 

;DIRTB-1#X 

• 

9 

... TO OPEN BUFFER. 

8ECF 

9D1F05 


STA 

OPNBUF-1 , X 



8ED2 

CA 


DEX 




8ED3 

DO p 7 A 8ECC 


BNE 

: XDO 05 



8ED5 

A593 


LDA 

EXPSTK 

• 

9 

INSERT DRIVE A. 

6E07 

4930 


EUR 

*'0 # 



8ED9 

80? 1 05 


STA 

0PN6UF+1 



8EDC 

A23Q 


LDX 

AIGCB3 



8E0E 

A906 


LDA 

FOREAD+2 

• 

9 

OPEN FOR DIRECTORY READ. 

8EE0 

20F496 


JSR 

DOPEN 



8EE 3 

A230 

:XD01G 

LDX 

A IQC83 

• 

9 

GET A BYTE. 

8EE5 

205397 


JSR 

DIN 



8EE8 

A6E4 


LDX 

IOSTAT 

• 

9 

CHECK FOR END-OF-FILE. 

8EEA 

E 088 


CPX 

A $88 



8EEC 

F 0 06 a 8EF4 


BEQ 

: XD020 

• 

9 

EOF -- ALL DONE. 

8EEE 

208294 


JSR 

CHOT 

9 

9 

WRITE TO SCREEN. 

8E P 1 

4CE38E 


JmP 

; XDO 1 0 



8EF4 

A230 

: XD020 

LDX 

AI0CB3 

9 

9 

CLOSE THE FILE. 

8EFo 

203F97 


JSR 

DCLCSE 



8EF9 

2 0 9 fc 9 F 


JSR 

NE^LIN 



8EFC 

A90 0 


LDA 

AO 

9 

9 

SET CC FOR EXIT. 

8EFE 

60 

: X0090 

RTS 




8EFF 

44203A2A2E 

: DIRTB 

Db 

'D i * . * 9 r EOL 

9 

9 

DIRECTCRY OPEN TEMPLATE. 


= 0 C 07 

: DTLNG 

= DIRTB 



8 F 0 6 


t 

PROC 






f 

; XCOMM 

• 

9 

-- COMMAND TABLE LISTER 



8F0o 

F 0 1 4 A 8F 1 C 

XCGMM 

BEG 

: XC090 

9 

9 

SYNTAX SCAN ONLY. 

8F06 

A00005 


LDA 

USRT AB 

9 

9 

FIRST LIST USER SUPPLIED TABLE. 

8F Ob 

At 0 1 05 


LDX 

USRTAB+1 




atari 

PHUT -- h.b. STEWART 


9F0t F 0 0 3 A 8 F 1 3 


8R1 0 

201D8F 


6 F 1 3 
8 F 1 5 
8F1 7 

A 9 0 1 
A27D 
201D8F 

SXC01 0 

6 F 1 A 

AVOO 


8F!C 

60 

: X C 0 9 0 

8F1D 
8F1F 
8F2 1 

8590 
8b9 i 
84 A B 

PRINTC 

8F23 

8F25 

A905 
85 AC 

! PC003 

8F27 

A 0 0 0 

: F C 0 0 5 

8F29 

8F2b 

8190 

F 02 1 A 8F4E 

SPC010 

8F2D 

3006 A 8F35 


8F2F 

8F32 

8F33 

208294 

C8 

D0F4 A 8F29 



8F 35 209D9F :PC020 


8F36 C8 


6F39 

8F3A 

8F3b 

8F3C 

8F3E 

8F40 

C6 

96 

18 

6590 

8590 

9002 A 8F44 


8F42 

E 69 1 


eF44 

8F4b 

C o A C 

DODF A 8F27 

: PCQ30 

8 F4 6 
«F4b 

20969F 

4C238F 


8F4E 

8F51 

8F5i 

2 0 9 fc 9 F 
A4A 6 
60 

JPC080 


As9emb Ter Ver 1 . OA 


8EQ 

: XC010 

JSK 

PRINTC 

L D A 

* LOW CTA8 

LDX 

* HIGH CTAB 

JSR 

PRINTC 

LDA 

AO 

RTS 


ST A 

tabadr 

STX 

TABADR* 1 

STY 

XTEMP 

LDA 

*5 

STA 

XTEMP+1 

LDY 

no 

LDA 

(TABADR) , Y 

BEG) 

: PC080 

BMI 

.‘PC020 

JSR 

CHOT 

INY 


8NE 

:Pcoi o 

JSR 

SPACES 

INY 


INY 


TYA 


CLC 


ADC 

tabadr 

STA 

TAeADR 

BCC 

: PC030 


INC 

TABADR+1 

DEC 

XTEMP+1 

BNE 

: PC 0 05 

JSR 

NEwLIN 

JMP 

: PC003 

JSR 

NEWLIN 

LDY 

XTEMP 

RTS 



■■ 
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01 * P I LOT , 

t NO TABLE. 

; NOW LIST BUILT-IN TABLE. 


} RETURN WITH CC SET. 

? SETUP POINTER TO BEGIN OF TABLE. 
; SAVE Y REG. 

; 5 NAMES PER LINE. 

; START NAME SCAN. 

? GET CHARACTER. 

; END OF TABLE. 

? ENO OF NAME. 

? OUTPUT CHARACTER. 

? (BRA). 

; SKIP OVER PARAMETERS. 

? ADD Y REG TO TABADR, 


? LINE FULL (5 NAMES)? 


} YES. 
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8F54 


PRUC 


; X w A I T -- PAUSE COMMAND PROCESSOR 


8F54 

20049F 

xmit 

JSR 

EXP 

• 

f 

THERE MUST BE AN EXPRESSION 

8F57 

AS92 


LOA 

FXEC 

• 

9 

EXECUTE MODE? 

8H59 

F 0 1 8 A 8F 76 


9EQ 

; XW090 

} 

NO -- ALL DONE. 

8F56 

A2 1 3 


LUX 

*EXPSTK-DTAB 

; 

YES -- WORK WITH COUNT. 

8F5D 

84 AB 


STY 

XTENP 

• 

9 

SAVE LINE INDEX, 

8F5F 

A4 AS 

J X 0 10 

LUY 

XTENP 

) 

RESTORE INDEX. 

8 F 6 1 

Ab93 


LD A 

EXPSTK 

? 

ALL DONE? 

8F63 

0594 


OKA 

EXPSTK + 1 



8F65 

FOOF A 8F7b 


BEG 

: XW090 

• 

9 

YES. 

8F67 

A 4 1 4 


LDY 

R T CLOK + 2 

• 

9 

NO -- WAIT FOR ... 

8F69 

207E9F 

: XW020 

JSP 

A6RTCK 

• 

9 

... OPERATOR ABORT ... 

8F6C 

C414 


CP Y 

RTCLOK+ 2 



8F6E 

F 0 F 9 A 8F69 


BEG 

: XW020 

; 

... OR CLOCK TO CHANGE. 

8F70 

20129U 


JSR 

DDCRI 

• 

9 

DECREMENT COUNT. 

8F73 

4C5F8F 


JMP 

: XWO 1 0 



8F7o 

60 

: X W o 9 o 

RTS 




8 F 7 7 


• 

PROC 






; xspeeo -- 

SPEED COMTROL COMMAND 

PROCESSOR 

8 F 7 7 

20D49F 

9 

XSPEEU 

JSR 

EXP 

? 

THERE MUST BE AN EXPRESSION 

8F7 A 

A 592 


LD A 

EXEC 

• 

9 

EXECUTE MODE? 

8F7C 

F 0 0 7 A 8F 85 


BE Q 

: XS090 

• 

9 

NO. 

8F7E 

A 593 


LD A 

EXPSTK 

• 

9 

YES -- SET SPEED. 

8F80 

8D5U05 


STA 

SPEED 



8Fe3 

A 9 0 0 


LD A 

*0 

• 

SET CC FOR EXIT. 

8F85 

60 

: XS090 

RTS 


• 

9 

RETURN WITH CC SET, 


PILOT - 
8F8b 
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PROC 


*CASS -- CASSETTE QN/GFP COMMAND PROCESSOR 


AF* 6 
8F88 
8F8B 

Ac 0 A 
20A87C 

DO OC A 8 F 99 

XC ASS 

LUX 

JSR 

bne 

AONOFFX 
SBCPAT 
: XC090 

• 

9 

• 

9 

CHECK FOR 'ON' OR 'OFF' 
NOT FOUND -- ERROR. 

8F8D 

8F8F 

A592 

F00t5 A 8F 99 


LDA 

8EQ 

EXEC 
: XC090 

• 

9 

• 

9 

EXECUTE MODE? 
NO. 

8F9 1 
8F94 

B09A8F 

8D02D3 


LOA 

STA 

CASCTLr X 
PACTL 

i 

0/1 -> CASSETTE CONTROL 

8F97 

A 90 0 


LDA 

#0 

• 

9 

SET CC FOR NORMAL EXIT. 

8F99 

bO 

;xco9o 

RTS 


• 

9 

RETURN WITH CC SET. 



? CASSETTE CONTROL 




= 1 . 


SF9A 

3C 

CASCTL 

D8 

CASSOF 




8F9S 

34 


D8 

CASSON 




8F9C 


• 

PROC 







¥ 

; xcsync -- 

• 

CASSETTE SYNC 

COMMAND 

PROCESSOR 


6F 9c 

F01B A 8FB9 

f 

XCSYNC 

BEG 

: XC090 

• 

9 

SYNTAX SCAN. 


8F9E 

AD02D3 


LDA 

PACTL 

• 

9 

CHECK CASSETTE 

MOTOR. 

8 F A 1 

2908 


and 

#$08 




8FA3 

DO 1 2 A 8 F B 7 


BNE 

; xcoeo 

• 

9 

MOTOR OFF, 


8F Ab 

A910 


LDA 

*$10 

• 

9 

ON -- WAIT FOR 

MARK TO SPACE 

8FA7 

207E9F 

2XC010 

JSR 

AbRTCK 

• 

9 

WAIT FOR BREAK 

ft ft • 

8 FA A 

2C0FD2 


BIT 

SKST A T 




8FAD 

F0F8 A 8FA7 


BEG 

: XC01 0 

• 

... OR MARK. 


8FAF 

207E9F 

: XC020 

JSR 

A8RTCK 

• 

9 

WAIT FOR BREAK 

ft ft ft 

SFB2 

2C0FD2 


BIT 

Sk ST AT 




8 F 8 5 

DOF 6 A 8 F A F 


BNE 

: XC 020 

• 

9 

... OR SPACE. 


SFtt 7 

A 9 0 0 

: XC 060 

LDA 

#0 

; 

SET CC FOR NORMAL EXIT, 

8FB9 60 

.'XC090 

RTS 


• 

9 

RETURN WITH CC 

SET. 

8F8A 



PR OC 






*FBa AtOA 


; 

; XTRACE -- TRACE MODE ON/OFF COMMAND 
; 

XTRACE LUX # G N G F F X ; CHECK FOR 'ON' OR 'OFF', 
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8PBC 

8FBF 

?0Ab7C 
C 0 0 9 A 6FC A 

JSR 

BiniE 

SBCMAT 

: X T 0 9 0 ? 

NOT FOUND -- EPROR . 

6FC1 

8FC3 

AS92 

FOOb A 8 F C A 

IDA 

BEQ 

EXEC 

JXT090 ; 

EXECUTE MODE? 
NO. 



; REQUIRES KOFF 

= 0, KON <> 0. 


8FCS 

8FC8 

8E3505 
A 9 0 0 

ST X 
LD A 

TRACE } 

AO ; 

SET FLAG. 

SET CC FOR NORMAL EXIT 

8FC A 

60 

:XT090 RTS 

• 

0 

RETURN WITH CC SET. 
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01 S PILOT. 

bfcb 


PROC 






9 

; X5AVE -- SAVE COMPAND PROCESSOR 

• 


8FCB 

2uDfc9o 

t 

XSAVE 

JSR 

ON APE 

? 

EXTRACT DEVICE/FILENAME. 

bfce 

2U079F 


JSR 

SKPSEP 

) 

SKIP SEPARATOR (S) . 

8FD1 

A59cJ 


LD A 

EXEC 

m 

9 

EXECUTE MODE? 

8FD3 

F024 A 8FF9 


BEG) 

J XS09Q 

■ 

NO. 

8FD5 

A23 0 


LOX 

*I0C63 



8FD7 

A 9 0 8 


LD A 

tOWRIT 

• 

9 

YES -- OPEN DEVICE FOR OUTPUT. 

8FD9 

20F496 


JSR 

DOPfcN 



8 FOC 

A V 0 0 


LD A 

#HUTC 

0 

9 

SETUP I OCB FOR PUT CHARACTER. 

8FQE 

904,203 


ST A 

ICCOM, X 



8FE1 

A960 


LD A 

# 38 Q + 1 0CB3 

; 

RE-ROUTE 'CHOT' OUTPUT TO DEVICE. 

8FE3 

803005 


STA 

CDEST 



8FE6 

208490 


JSR 

LISTER 

• 

9 

OUTPUT PROGRAM TO DEVICE. 

8FE9 

A230 


LOX 

4I0CB3 



8FE0 

203F97 


JSR 

DCLOSt 

0 

9 

CLOSE DEVICE. 

8FEE 

A 9 0b 


LD A 

AEPLTC-IOVBAS 

0 

9 

RESTORE 'CHOT' OUTPUT. 

8FF0 

8D3005 


STA 

CDEST 





; *** 

EXTERNAL 

ENTRY POINT FROM 

0 

XL I ST ' ★** 

8 F F 3 

202C85 

XSV050 

JSR 

RDYMES 

0 

9 

GENERATE "READY" MESSAGE. 

8 F Fo 

A90 0 


LD A 

#0 

0 

9 

SET CC FOR NORMAL EXIT. 

8FF8 


XAPQ90 





8FF8 


XPE090 





SFF8 


XLD090 





8FP8 60 


RTS 


} 

RETURN WITH CC SET. 

8FF9 4C6490 

: XS090 

JP!P 

LISTER 

m 

9 

SYNTAX CHECK & RETURN WITH CC SET 


PILL’T 
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8FFC 


PROC 


; XLOAO -- LOAD cow and processor 

; 


8FFC 

2010 9o XLOAD 

JSR 

XL0100 

SFFF 

DC F 7 A 8FF8 

BNE 

xldoro 


; COMMON CODE. 
? ERROR. 


; *** EXTERNAL ENTRY FROM 'XRUN' *** 


9001 

A592 

XL0005 LD A 

EXEC 

9003 

F 0 F 3 A 8FF8 

BEQ 

XlD090 

9 Q 0 5 

20C087 

JSR 

CLRPRG 

9008 

A90 1 

LD A 

FKLCAD 


? EXECUTE MODE? 

; NOT. 

? CLEAR PROGRAM STORAGE AREA. 
? SET LOAD FLAG. 


; *★* EXTERNAL ENTRY FROM 


9Q0A 

8D3205 

XL 00 1 0 

STA 

LOADFG 

9000 

AC0979 


JMP 

MLLCAD 

9010 

9013 

20C297 
D0E3 A 8FF8 

XL0100 

JSR 

BNE 

sfname 

XLD090 

9015 

9017 

A592 

F OOF A S P F 8 


LD A 
BEQ 

EXEC 

XLD09Q 

9019 
90 1 C 

AD3205 
CODA A 8FF8 


LD A 
BNE 

LOADFG 

XLU090 

90 l E 
9020 
9022 

A2 3 0 
A904 
20F496 


LDX 
LD A 
JSR 

AI0CB3 

#QREAD 

DOPEN 

9025 

9027 

A 9 0 0 
8Q4D05 


LD A 
STA 

#0 

USTKP 

°0 2 A 

60 


RTS 




• 

9 

? XMERGE -- 
? 

MERGE COMMAND 

9028 

902E 

201090 
DOCS A 8FF8 

XMERGE 

JSR 

BNE 

XLO100 

XME090 

9030 

9032 

A 592 

F 0 C 4 A 8FF 8 


LDA 

BEG 

EXEC 

XME090 

90 3 A 
9036 

A902 

D0D2 A 90 0 A 


LDA 

BNE 

akmerge 

XLC010 


'XMERGE', 'XARPND' *★* 


? LOAD UNTIL I/O ERROR OR END OF FILE. 
; SET 'GETCQM'. 

? EXTRACT DEVICE/FILENAME. 

; ERROR. 

; EXECUTE MODE? 

? NO. 

; ALREADY LOADING? 

? YES -- ERROR. 


? YES -- OPEN DEVICE FOR READING. 


; CLEAR USE STACK. 


PROCESSOR. 


? COMMON CODE. 

; ERROR. 

; EXECUTE MODE? 

; no. 


? SET LOAD FLAG. 
? (BRA ) , 
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; 

; XAPPNU -- APPEND COMPAND PROCESSOR. 

; 


90 3b 

201 090 

XAPPNO J SR 

XL0100 

t 

COMMON CODE. 

90 38 

DOflb A 8 F F 6 

BNE 

X AP090 

; 

ERROR. 

9030 

201 A91 

JSR 

XAU010 

; 

SHARE # X AUTO ' CODE FOR LINE #'S 

9040 

DOPo A 8FF8 

BNE 

X A P 0 9 0 

; 

ERROR. 

9 0 4 £ 

A592 

LO A 

EXEC 

• 

9 

EXECUTE MODE? 

9044 

F0B2 A 8F F8 

8EQ 

X A P 0 9 0 

; 

NO. 

904o 

A903 

LDA 

akappnd 

• 

t 

SET LOAD FLAG. 

9048 

DOCO A 900 A 

BNE 

X LOO 1 0 

? 

(BRA) . 
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904A PROC 

9 

; XLETTR -- TEXT LETTER SIZE SELECTION 


, 


904 A 

A20C 

XLETTR 

LDX 

ALTT ABX 

• 

9 

CHECK FOR 'SMALL', 'MEDIUM', UR 'LARGE 

9oac 

20AB7C 


JSR 

SBCMAT 


90 4 F 

D02D A 90 7E 


BNE 

: XLU90 

m 

9 

NOT FOUND -- ERROR, 

9051 

A 592 


LD A 

EXEC 

9 

9 

EXECUTE MODE? 

9053 

F 029 A 907t 


BEG 

: XL090 

• 

9 

NO. 

0055 

AD4505 


LD A 

S6LSTP 

• 

9 

SINGLE STEP? 

9058 

F 0 0 4 A 905E 


«EQ 

: XL020 

• 

9 

NO, 

905A 

A 983 


LD A 

ANRCERR 

• 

/ 

YES -- ERROR. 

905C 

D020 A 907E 


BNE 

I XL090 



905E 

84 AB 

SXLG2Q 

STY 

XTEMP 



9060 

8E5 1 05 


ST X 

LETT RSZ 

• 

9 

YES -- SET NEW LETTER SIZE. 

9063 

6A 


TXA 



9064 

0006 A 9 o 6C 


BNE 

! XL 05 0 

} 

MEDIUM OR LARGE LETTERS. 

906b 

20F494 


JSR 

TXOPEN 

9 

9 

SMALL LETTERS. 

9069 

4C7790 


JMP 

: XL 080 



906C 

8E3705 

: XL050 

STX 

GSMODE 

9 

9 

GRAPHICS MODE. 

906P 

A9 0 0 


LD A 

AO 



9071 

8U5205 


STA 

SPLTSC 

• 

9 

NO SPLIT SCREEN. 

9074 

201095 


JSR 

GSOFEN 

9 

9 

OPEN SCREEN. 

9077 

A4 AB 

: XL080 

LD Y 

XTEMP 



9079 

A900 


LD A 

AO 

0 

9 

RESET GRAPHICS MODE FLAG & SET CC. 

907B 

801405 


STA 

GRFLAG 


907E 

60 

: XL090 

RTS 


9 

9 

RETURN WITH CC SET. 

907F 


• 

PROC 






; XSCROLL -- 

• 

9 

SCROLL OPTION 

SELECTION 

90 7 F 

A210 

XSCROLL 

LQX 

ASCTA6X 

• 

9 

CHECK FOR 'FINE' OP 'COARSE'. 

9081 

20AB7C 


JSR 

SBCMAT 



90 84 

DO 1 D A 90A3 


BNE 

: X S 0 9 0 

; 

NOT FOUND -- ERROR. 

9086 

A 592 


LD A 

EXEC 

• 

9 

EXECUTE MODE? 

90 86 

F 0 1 9 A 9u A3 


BEG 

: XS090 

m 

9 

NO. 

908 A 

20BB96 


JSR 

TSTMOD 

• 

9 

TEXT MODE, SMALL LETTERS? 

9080 

C90 1 


CMP 

ATXSL 



908F 

DO 1 3 A 90 A 4 


BNE 

! XS092 

} 

NO. 

9091 

86P205 


STX 

FINEFG 

• 

9 

SET SCREEN EDITOR FLAG. 

9094 

6 4 AB 


STY 

XTERP 



9096 

202996 


JSR 

COMPRS 

} 

compress memory. 

9099 

206E96 


JSR 

EOPEN 

; 

RE-OPEN t: ON I OCB 0. 
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909c 

909R 

205C96 
Aa A6 


JSR 

LDY 

EXPAND 

XTEMP 

• 

t 

EXPAND 

MEMORY. 

90 4 1 

A90 0 


LD A 

40 

• 

P 

SET CC 

FOR NORMAL EXIT 

9043 

60 

SXS090 

RTS 


• 

f 

RETURN 

WITH CC SET. 

9044 

9046 

A983 

60 

5XS092 

LOA 

RTS 

4NRCERR 
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90A7 PROC 

9 

? XLIST -- LIST COMMAND PROCESSOR 

; 

? *** EXTtRNAL ENTRY POINT PROM 'XSAVE' *** 


90A7 
90 A A 

20P490 
D007 A 9 083 

XLIST 

90 AC 
9 0 A E 
90BQ 

A592 

F 0 0 3 A 9063 
4CP3BF 


9003 

6 C 

: XL009 

90B4 

9006 

90BS 

908a 

906C 

90PF 

A90D 
8566 
A99 1 
8 50 7 
206D93 
0045 A 9 1 06 

LISTER 

90 C 1 
90C3 

E 0 03 

B 0 4 1 A 9 1 0 6 


90C5 

9QC7 

EOOi 

COOC A 90D5 


90C9 

ROCC 

90CF 

9002 

AD5305 

805505 

AD5405 

8D5605 


9005 


: X L 0 1 0 

90D5 
°0 D 7 
R0D9 

A25t 
A 0 0 0 
207794 

? *s* 

90OC 

90DE 

9OE0 

A260 
A 0 02 
207794 


90E3 

90E6 

2GC693 
DO 1 E A 9 1 06 


9QE6 
9 0 E A 

A 592 

F01C A 9 1 08 


90EC 
90 EE 
90 F 0 
9 0 F 3 

A213 
A 0 1 5 
20159C 
BOOD A 9 1 02 

: XL l o o 


90F5 A 0 1 3 


JSR 

LISTER 

8NE 

: XL009 

LDA 

EXEC 

BEO 

: XL009 

JMP 

XSV050 

RTS 

LDA 

ALOvs LSTNMS 

STA 

POINT 

LUA 

AHIGH LSTNMS 

STA 

POINTt 1 

JSR 

MNYNMS 

BNE 

! XL900 

CPX 

A3 

ecs 

: XL9 0 0 

CPX 

n i 

BNE 

IXL010 

LDA 

NMS6F 

STA 

NMS6F+2 

LDA 

NMS6F+1 

STA 

NMS8F+3 


STY 

XTENP 

LDX 

ALS-DTAB 

LD Y 

AO 

J3P 

NMQV I 

LDX 

ALEND-DTAB 

LuY 

A2 

JSR 

NMO V I 

JSR 

BRACKT 

BNE 

: XL900 

LDA 

EXEC 

PEG 

! XL990 

LDX 

AbLCW-DTAB 

LUY 

ABHIGH-DTAB 

JSR 

DCMPI 

BCS 

: XL200 

LD Y 

ABLCW-DTA8 


? DO THE LIST PROCESS. 

; ERROR. 

} EXECUTE MODE? 

} NO. 

; YES -- SIGN OFF R RETURN. 
? RETURN WITH CC SET, 

; ADDRESS OF DEFAULTS. 


} GET PARAMETERS. 
? SYNTAX ERROR. 


; TOO MANY NUMBERS, 

; HOW MANY ARGS? 

; 0 OR 2. 

; 1 -- LAST LINE = FIRST. 


? SAVE Y, 

; 'LS's FIRST. 


? 'LEND' = SECOND. 


; BRACKET RANGE, 

; FIRST > LAST. 

; EXECUTE MODE? 

; no. 

? ADDRESS OF NEXT LINE 
; ADDRESS PAST END, 

} DONE. 
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V* 

90F7 

20229F 


JSR 

PSF 

-• 

9o F A 

A21 3 


LOX 

*BLC*-DTAB 


90 FC 

2 0 A A 9 A 


JSR 

SNXTI 

*• 

90 F F 

4CEC90 


JPP 

SXL100 


9102 

A 9 0 0 

: XL200 

LDA 

»0 


9104 

F 0 02 A 9 1 0 8 


BEQ 

• X L 9 9 0 


9106 

A902 

:XL90U 

LDA 

FIMPERR 


9106 

08 

5 XL990 

PHP 



9109 

A 4 A b 


LDY 

XTEPP 


9106 

2b 


PLP 



9 1 OC 

60 


PTS 





; OEFAULTS FOR 

'LIST'. 


9100 

0000 

LSTNF'S 

D trv 

0 


9 1 OF 

0 F27 


Dw 

PAX LN 


911 1 

FFFF 



EONPLS 


» 

* 
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01 {PHOT. 

» PRINT STORAGE FORM LINE. 
; ADVANCE TO NEXT LINE. 


> SET CC FOR NORMAL EXIT. 

) (BRA). 

; IMPROPER PARAMETER ERROR. 

I SAVE CC. 
t RESTORE Y. 

; RESTORE CC. 

» RETURN WITH CC SET. 
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^113 


PKOC 


; X ALTO -- AUTO-INPLT COMMAND PROCESSOR 

f 


9 1 t 3 201A91 

XAUIO 

JSR 

XAU01 0 

; COMMON CODE. 

9116 D 0 4 A A 9 1 62 


BNE 

: X A900 

; ERROR. 

9118 F 0 3 0 A 9 1 4 A 


BEO 

: XA200 



; *** 

EXTERNAL ENTRY FOR 'APPEND ' *** 

911a A969 

XAU010 LDA 

ALOK AUTNMS 

? ADDRESS OF DEFAULTS. 

9 1 l C 8566 


STA 

POINT 


9 1 1 1! A99 1 


LDA 

#HIGH AUTNMS 


9120 8587 


STA 

POINT+1 


9122 2 0 6 D 9 3 


JSR 

MNYNMS 

; GET PARAMETERS. 

9125 D 0 22 A 9 1 49 


BNE 

: XA 1 90 

; SYNTAX ERROR. 


; *s* 

STY 

XTEMF 

; SAVE Y. 

9127 8 A 


TX A 


; SET 'Z' FLAG. 

9126 DOOD A 9 1 3 7 


BNE 

:XA100 

} FIRST LINE ENTERED, 


? DEFAULTS: NEXT LINE = LAST 

PROGRAM LINE + 10 

9 1 2 A 201294 


JSR 

GTLSLN 

? 'LINE NO' = LAST PROGRAM LINE + 10 

9 l 2D A2 7 A 


LDX 

aaline-dtab 


° 1 2F A 05C 


LDY 

ALINENO-DT AB 


9131 ?Q“59A 


JSR 

DMO V I 


9134 4C3E9 1 


JMP 

: x a 1 1 o 



? USE 

ENTERED 

VALUES . 


9137 A27A 

: x a i o o 

LDX 

AALINE-DTAB 

? 'ALINE' s FIRST. 

9139 A 0 0 0 


LDY 

$0 


9136 207794 


JSP 

NMOVI 


913E A27C 

r X A 1 10 

LDX 

A A INC -DT AB 

? 'AINC' = SECOND. 

9140 A 0 02 


LDY 

A2 


9142 207794 


JSR 

NMOVI 


914 5 A 4 A 6 


LDY 

XTEMP 

} RESTORE Y. 

9147 A 90 0 


LDA 

AO 

? SET CC FOR EXIT. 

9149 60 

: XA 1 90 

RTS 



9 1 4 A A 592 

! XA200 

LDA 

EXEC 

? EXECUTE MODE? 

9 1 4C FQlfe A 9 1 64 


BED 

: XA990 

? NO. 

9 1 4 £ 8C3605 


STA 

AUTCIN 

} YES -- SET AUTO-INPUT MODE, 

9151 AS86 


LDA 

AC0LR2 

? SET SCREEN BACKGROUND COLOR. 

9 i 53 800602 


STA 

COLOR 0+2 


9156 A587 


LDA 

AC0LR1 

; SET SCREEN LETTER COLOR. 

9158 6DC502 


STA 

COLCRO+ 1 


9156 A 90 0 


LDA 

AO 

; SET CC FOR NORMAL EXIT. 

9 1 5D 6DCA05 


STA 

INDENT 

J INITIALIZE 'AUTO INDENT'. 

9160 F 0 02 A 9 1 64 


BEO 

J XA990 

? (BRA). 


PILOT 

• " H • b . 

STEWART 


916? 

A902 

: X A900 

LP A 

9164 

06 

: X A990 

PHP 

9165 

49 At? 


LDY 

9167 

26 


PL P 

9168 

60 


RTS 


** 1NFERR 


XTENP 


01 SPILOT, 


J SAVE CC. 

? RESTORE Y. 

J RESTORE CC. 


9169 0000 

9166 0 A00 

9160 FPPF 


; DEFAULTS FOR 'AUTC', 'APPEND' 


AUTNPS Dkv 
DW 
Dw 


0 

10 

EONMS 


; (DON'T CARE) 



PILOT 
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D 1 : PILOT . 


q 16F PROC 


; 

; XDELET -- DELETE COMMAND PROCESSOR 



• 


— — — - — ■ ■ 1 » 1 W 1 1 » % 



916P A90D 

XDELET LDA 

FLOW LSTNMS 

• 

9 

SHARE DEFAULTS. 

9171 6586 


ST A 

POINT 



9 1 7i ARQl 


LDA 

FHIGH LSTNMS 



9175 8567 


STA 

P 0 1 NT 1 1 



9177 206D93 


JSR 

MNYNMS 

9 

9 

GET PARAMETERS. 

9 1 7 A D07C A 9 1 F 6 


6NE 

: XD900 

} 

SYNTAX ERROR. 

9 1 7 C E001 


CPX 

FI 

• 

t 

0 , 1, OR 2 PARAMETERS. 

917E 9076 A 9 1 F8 


BCC 

JXD900 

; 

0 = ERROR. 

9180 DOOC A 9 1 Q£ 


8NE 

SXDOIO 

• 

9 

2. 

9182 AD5305 


LDA 

NMS8F 

m 

9 

1 -- LAST LINE = FIRST. 

9185 8D5505 


STA 

NMSBF+2 



9188 AD5405 


LDA 

NMS8F+1 



9 1 8 fc 8D5605 


STA 

NMSBF+3 



916E 

SXDOIO 






? *S* 

STY 

XTEMP 

• 

9 

SAVE Y. 

9 1 8 £ A25E 


LDX 

FLS-DTAB 

• 

9 

'LS' = FIRST. 

9190 A 0 0 0 


LDY 

P 0 



9192 207794 


JSR 

rv o v i 



919^ A?6Q 


LDX 

FLEND-DTAB 

9 

9 

'LEND' = SECOND. 

9197 AO 02 


LDY 

F2 



9199 207794 


JSR 

N 1 NOVI 



9 1 9c 20C693 


JSP 

BRACKT 

• 

9 

BRACKET RANGE. 

9 1 9 F D057 A 91F8 


BNE 

SXD900 

; 

FIRST > LAST. 

9 1 A 1 A592 


LDA 

EXEC 

• 

9 

EXECUTF MODE? 

9 1 A 3 F 055 A 91FA 


BEO 

: XD990 

} 

NO. 

9 1 A 5 A 59 7 


LDA 

BN UN 

• 

9 

ANY LINES TO DELETE? 

9 1 A 7 0598 


ORA 

BNUN+1 



91 A 9 F0A9 A 91F4 


BEO 

SXD600 

9 

9 

NO. 


; K' ARN 

USER. 




9 1 A B A99F 


LDA 

FDELMES 

9 

9 

'YOU ARE ABOUT TO DELETE '. 

9 1 AD 20FFB4 


JSR 

NESSOT 



9 1 B 0 A 2 1 7 


LUX 

F8NUM-DTAB 

; 

* OF LINES, 

9 1 B2 20149E 


JSR 

DECASC 



9 1 B5 A 9 A 0 


LDA 

FDL2NES 

• 

9 

'LINES CS) ,<CR> ARE YOU SURE? 

9 1 P 7 20FFP4 


JSR 

NESSOT 



9 1 P A A20C 


LDX 

FTELN-DTAB 

• 

9 

USE 'TEXBUF ' , 

9 1 BC 208194 


JSR 

GETLIN 



9 1 BF A58F 


LDA 

TELN+3 

• 

9 

EMPTY? 

9 1 C 1 FU2C A 9 1 E F 


BEG 

:XD500 

} 

YES -- DP NOT CHANGE, 


ATARI C A M A C Assembler Ver 1, 
PILCT -- h . b . STEWART 



V* 

91C3 

AUOOBC 

LDA 

TEXbUF 


9 1 Cb 

0 92 0 

ORA 

ALC 


91CB 

C 9 7 9 

CMP 

*'Y'tf20 


9 1 C A 

D023 A 9 l EF 

BNE 

SXD500 



7 USER 

AGREES. 


** 






9 1 CC 

8D4305 

STA 

NUCCNT 


° 1 CF 

A215 

LDX 

AfiHIGH-DT AB 


9 1 D 1 

A 0 1 3 

LuY 

ABLCW-DTAB 


9 1 D3 

2UA29C 

JSP 

DSU6I 


9106 

A252 

LDX 

AMEMA-DTAB 



7 *S* 

LDY 

ABLGW-DTAB 


9 1 D6 

204S9A 

JSP 

DMO V I 


9 1 CB 

A 0 0 0 

LDY 

AO 


9 1 OD 

A595 

LDA 

PHIGH 


91DF 

9193 

STA 

(BLOW) , Y 


9 1 E 1 

C 6 

INY 



9 1 E2 

A b 96 

LDA 

BHIGH+1 


91E4 

9193 

STA 

(BLOW) , Y 


9 1 Eb 

203E9B 

J SR 

MDE ALL 


91E9 

202C85 

JSR 

RDYMES 



• 

LDA 

AO 



7 

BfcQ 

SXD990 


91 EC 

4CF491 

JMP 

5 X D 6 0 0 




7 USER 

DOES NOT 

AGREE. 

«1EF 

A99t 

5 XD500 

LDA 

ANCHGNS 

91 FI 

20FFB4 


JSR 

MESSOT 

91 FU 

A 90 0 

: XD600 

LDA 

AO 

9 1 Fb 

F002 *91 FA 


BEG 

5 XD99 0 



J SYNTAX ERROR. 


91F6 

A 902 

S XD900 

LDA 

AIMPERR 

91FA 

06 

SXO990 

PHP 


919(5 

AAAts 


LDY 

X TEMP 

9 1 FD 

23 


PLP 


91Ft 

60 


RTS 



Page l 1 9 

01 SPILOT. 


7 FIRST CHARACTER. 

7 FORCE LOWER CASE. 

; Y? 

; NO -- 00 NOT CHANGE. 


; NO CONTINUE AFTER DELETIONS, 
; SIZE OF BRACKETED RANGE. 


J GET READY TO DELETE. 


? SET BLOCK SIZE TO DELETE. 


; DELETE BLOCK. 


; SET CC FOR NORMAL EXIT. 
7 (BRA). 


? 'PROGRAM UNCHANGED'. 


7 SET CC FOR NORMAL EXIT. 


7 IMPROPER PARAMETER ERROR. 

7 SAVE CC. 

7 RESTORE Y. 

7 RESTORE CC. 


PILOT 
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DlsPILOT. 


9 1 F F 


PKOC 

XREfSi -- RENUMBER COMMAND PROCESSOR 

STEP 1* BRACKET T HE RANGE OF LINES TO RENUMBER. 

2: COMPUTE THE NEW RANGE THEY WILL BECOME. 

3: FIND STARTING AND ENDING ADDRESSES OF THE NEW LINES. 
4: THERE ARE TWO VALID CASES FOR THE NEW LINES: 

A. THEY ALL FIT BETWEEN TWO EXISTING LINES, 
d. THEY ALL FIT WITHIN THE RENUMBERED RANGE. 

5: RENUMBER THE LINES IN PLACE. 

4 A . ) , 




• 


6 • MOVE THEM BETWEEN 

TWO EXISTING LINES ( 

91FF 

A963 

9 

XREN 

LD A 

ALOW RENNMS 

? 

ADDRESS OF DEFAULTS. 

9201 

8566 


STA 

POINT 



°2 0 3 

A 993 


LD A 

AHIGH RENNMS 



9205 

8567 


STA 

POINT+1 



9207 

206D93 


JSR 

MNYNMS 

a 

/ 

GET PARAMETERS. 

92 0 A 

F 0 03 *920F 


BEG) 

5XR01 0 

• 

9 

OK. 

920C 

4C5E93 

SXR005 

JMP 

: XR900 

• 

r 

SYNTAX ERROR. 

920 F 


: XPO 1 0 







? *S* 

STY 

XTENP 

• 

9 

SAVE Y. 

920F 

A27A 


LDX 

AALINE-DTAB 

• 

9 

'ALINE' s FIRST. 

9211 

A 0 0 0 


LD Y 

A 0 



9213 

207794 


JSR 

N Mi 0 V I 



9216 

A27C 


LDX 

AAINC-DTA6 

• 

'AINC' = SECOND. 

°2 t 8 

A 0 02 


LDY 

m 



921 A 

207794 


JSR 

NMOVI 



92 ID 

A25E 


LDX 

ALS-D7AB 

• 

9 

'LS' s THIRD. 

92 1 F 

A 0 0 4 


LDY 

A 4 



9221 

20779a 


JSR 

NMOVI 



9224 

A260 


LDX 

ALEND-DTAB 

• 

9 

'LEND' * FOURTH. 

9226 

AO 0 6 


LDY 

A 6 



922o 

207794 


JSR 

NMOVI 



922C 

20C693 


JSR 

6RACKT 

• 

9 

BRACKET RANGE. 

922E 

DODC A 920C 


BNE 

:XRG05 

• 

9 

'LS' > 'LEND'. 

9230 

A59 2 


LD A 

EXEC 

} 

EXECUTE M100E? 

9232 

D003 *9237 


BNE 

: XRO 1 5 

m 

9 

YES. 

9234 

4C5E93 


JMiP 

: XR990 

? 

NO. 

9237 

A597 

: XRO 1 5 

LD A 

BNUM 

• 

# 

0 LINES? 

9239 

0596 


ORA 

BNUM+1 



923d 

DO 03 *9240 


BNE 

:XR020 

• 

9 

NO. 

923D 

4C2E93 


JMP 

SXR500 

m 

9 

YES. 

9240 

A 2 1 9 

: XR02C 

LDX 

ARTMP-DTAB 

9 

9 

' R T Ms P ' = # OF LINES 

9242 

AO 1 7 


LDY 

AfaNUM-DTAB 



9244 

20459A 


JSR 

DMO V I 



92^7 

20129D 


JSR 

DDCRI 

• 

9 

- 1 • 
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OUPILOT. 

9£4A 

A07C 

LDV 

•ainc-dtah 

1 * increment. 

9£«L 

20549C 

JSR 

OMUL I 


924F 

A 07 A 

LOT 

•ALINE-DTA0 

t ♦ FIRST NE* LINE. 

9251 

20329C 

JSR 

GADDI 

1 a LAST NEW LINE. 

9*54 

20**99 

JS« 

chkln 

; IS LINE IN RANGE? 

9257 

9003 A 925C 

PCC 

: XR030 

; YES. 

9259 

9 1 3 S 9 3 

JMP 

SXR600 

; NO -- OUT OF RANGE 


; FIND STARTING AND ENDING ADDRESSES OF THE NEW RANGE, 


925C 


SXR030 






; *S* 

LDX 

FRTNP-DT A8 

; 

925C 

209299 


JSR 

RENFNC 


925 F 

8 5 AC 


STA 

XTENP* 1 

• 

9 

9261 

A21B 


LDX 

FR2TVP-DTAB 

• 

9 

9263 

A04E 


LDY 

APP-DT AB 


9265 

2 C 4 5 9 A 


JSR 

DMOVI 


9268 

A2 7 A 


LUX 

AALINE-DTAB 


926 A 

204294 


JSR 

RENFNC 

t 

926L 

05 AC 


ORA 

X TEN P ♦ 1 

? 

926 F 

F003 A 92 74 


6EQ 

: XR040 

• 

9271 

4C4293 

: XR035 

JMP 

: XR700 

• 

9 


SAVE 'VALID' STATUS. 
'R2TMP' = ADDRESS OF END. 


'PP' s ADDRESS OF START. 
IF EITHER IS INVALID, "0 
Ok , 

OVERLAP. 


OVERLAPPING RANGES UNLESS: 




; 'START 

' OF NEW = 'END 

' OF 

NEW ★OR* 



; 'START 

' OF OLD <= 'START' 

OF NEW * AND* 



; 'END' 

• 

OF NEW <s 'END' 

OF 

OLD 

9279 

A24E 

9 

: XR04Q LDX 

U PP-DTAB 

• 

9 

'START' OF NEW. 

Q 27o 

A 0 1 B 

LDY 

#R2TMP-DTA6 

% 

9 

'END' OF NEW. 

9276 

20159C 

JSR 

DCMPI 



9276 

F010 A 926D 

BEQ 

: XR 1 0 0 

• 

9 

NOT OVERLAPPING. 



; *S* LDX 

RpP-DTAB 

• 

9 

'START' OF NEW. 

927D 

A 0 1 3 

LDY 

FbLCW-DTAB 

• 

9 

'START' OF OLD, 

92 7 F 

20159C 

JSR 

DCMFI 



9282 

9 0 ED A 92 7 1 

PCC 

:XP035 

• 

/ 

OVERLAPPING. 

92*4 

A215 

LDX 

#BHIGH-DTAB 

• 

9 

'END' OF NEW. 

9266 

AO IB 

LDY 

AR2TMP-DTAB 

) 

'END' OF OLD. 

9286 

20159C 

JSR 

DCMPI 



9286 

90E4 A 927 1 

BCC 

: XR035 

• 

9 

OVERLAPPING. 


; RENUMBER IS VALID 


928 D 

A219 

:XR10G LDX 

8RTNP-DTAB 


928 P 

A 0 4 1 

LDY 

#PP-DTAB 


9291 

2G459A 

JSR 

DMO V I 

; 'RTMP' = ADDRESS QP START. 


9294 

9297 


61)4305 
A 2 4 E 


; RENUMBER EACH LINE IN PLACE 


5XRU0 STA 
LOX 


NOCGNT 

»PP-DTAB 


? NO CONTINUE AFTER RENUMBER. 
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AO 1 3 

LDY 

*8LCw-DT AB 



929fc 

20459A 

JSR 

DMO V I 





; 'PP # s 

ADDRESS OF NEXT 

LINE TO RENUMBER. 



; VALINE' = 

NEW LINE NUMBER. 





? 'AINC' = 

INCRFMENT. 





; 'BNUM' = 

* OF LINES LEFT 

TO 

RENUMBER. 

929 1 

A 0 0 4 

s XR20 0 LDY 

44 



92A0 

A5PA 

LDA 

ALINE 



92A2 

9 I C E 

STA 

(PP) , Y 


J NEW LSB (INVERTED). 

92A4 

86 

DEY 




92A5 

A5FB 

LDA 

AllNE+1 



92A7 

9 1 CE 

STA 

(PP) , Y 


; NEW MSB (INVERTED). 

«2AV 

A27A 

LDX 

4ALINE-DTAB 



92 A 0 

A 0 7C 

LDY 

4AINC-DTAB 



92 AD 

20329C 

JSR 

DADDI 


; INCREMENT 'ALINE'. 

9280 

A24E 

LDX 

4PB-DTA0 



9282 

20AA9A 

JSR 

SNXTI 


; AODRESS OF NEXT LINE. 

9285 

A21 7 

LDX 

40NUM-DTAB 



928 7 

20129D 

JSR 

DDCRI 


? ONE LESS LINE. 

928 A 

A597 

LDA 

BNUM 


; ANY LINES LEFT? 

92«C 

0598 

ORA 

BNUR+1 



928E 

DOCE a 929E 

BNE 

: XR200 


? YES. 



? THE LINES 

HAVE BEEN RENUMBERED IN PLACE. 



? THERE ARE 

FOUR CASES! 





; 1. 'START' ADDRESS < 'END' 

ADDRESS -> ALREADY IN ORDER 



; 2. ONE 

LINE MOVE, ALREADY 

IN ORDER (NEW s OLD). 



; 3. ROVE 

THE BLOCK TO LOWER 

MEMORY (NEW 4 ' S < OLD). 



; 4. ROVE 

THE BLCCK TO HIGHER MEMORY ( NEI/V 4'S > OLD). 

92C0 

A 2 1 9 

LDX 

4RTMP-DTAB 


; 'START' ADDRESS. 

92C2 

A 0 1 b 

LDY 

MR2TMP-DTAB 


? 'END' ADDRESS. 

92C4 

20159C 

JSR 

DCMFI 



92C7 

D065 A 932E 

BNE 

: XR500 


} ALREADY IN ORDER. 



? ROVE ONE STATERENT AT A TIRE 

(TO AVOID 'NOT ENOUGH MEMORY 



? 'BLOW ' = 

ADDRESS OF NEXT 

STATEMENT TO MOVE. 



? 'bHIGH' = 

ADDRESS PAST END 

• 




; *3* LDX 

ARTMP-DTA6 



92C9 

A 0 1 3 

LDY 

4BLCW-DTA8 



92CS 

20159C 

JSR 

DCMFI 


? IS 'NEW' < 'OLD'? 

°2CE 

F05E A 932E 

BEQ 

; XR500 


; NEW s OLD. 

92D0 

A 9 0 0 

LDA 

40 


; SET 'NEW' < 'OLD'. 

9202 

9Q02 a 92D6 

bCC 

! XP2 1 0 


? YES. 

9204 

A90 1 

LDA 

41 


? NO -- SET 'NEW' > 'OLD'. 

9206 

859b 

JXR210 STA 

R2TMP 




' TEXBUF ' , 
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R2D0 

A000 

JXR300 

LDY 

#0 

920 A 

B 1 93 


LUA 

(BLOW) , Y 

92 DC 

Ad 


TAY 


92DD 

B 1 9 3 

JXR310 

LDA 

(BLOW) , Y 

92DF 

9900BC 


STA 

TEXBUF, Y 

92E2 

8a 


DEY 


92E3 

10FB a 9200 


8PL 

J XR310 

92E5 

A252 


LDX 

AMEMA-DT Ab 

9 2E 7 

A 0 1 3 


LDY 

FBLCW-DTAB 

92E9 

204 89 A 


JSR 

DMOVI 

92EC 

2U3E9B 


JSR 

mdeall 

92EF 

A 896 


LD A 

R2TMP 

92 F 1 

0 0 0 A A 92FD 


BNE 

: XR320 



? 'NEW' 

< 'OLD' 

• 

92 F 3 

A213 


LDX 

#BLCW-DTA6 

92F5 

A 054 


LDY 

FMEMB-DTAB 

92F7 

20329C 


JSR 

daddi 

92 F A 

4C0993 


JMP 

: XR330 



; 'NEW' 

> 'OLD' 

• 

92 FO 

A219 

: XR320 

LDX 

ARTMP-DTAB 

92 F R 

A 08 4 


LDY 

#MEMB-DTAB 

9301 

20429C 


JSR 

DSUBI 

9304 

A215 


LDX 

FBHIGH-DTAB 



; *s* 

LDY 

fmemb-dtab 

9306 

20429C 


JSR 

DSUBI 


? ALLOCATE a 8L0CK AT 'RTMP'. 


• 

9309 

A252 

; XR330 

LDX 

#mena-dtab 


93 0 B 

A 0 1 9 


LDY 

ARTNP-PTAB 


9300 

20459 A 


JSR 

DMOVI 

# 

9310 

20C19A 


JSR 

MALLOC 

» 

9313 

A 4D4 


LDY 

MEM-B 


9315 

88 


DEY 


• 

9316 

B900BC 

: XR350 

LD A 

TEXBUF, Y 


9319 

9199 


STA 

(RTMP) , Y 


9316 

88 


DEY 


% 

931C 

10F8 A 93 1 6 


BPL 

: XR350 




? statement HAS 

BEEN INSERTED 

% 

9316 

A219 


LDX 

*RTMP«PTAB 


9320 

A054 


LDY 

fmEMB-DT A6 

* 

9322 

20329C 


JSR 

n ADD I 




Page 123 

D 1 JPILOT. 


; GET LENGTH of statement. 


J MOVE NEXT RYTE TO 'TEXBUF'. 

; (EXTRA BYTE IS "DON'T CARE"). 


; # M E M A ' = ADORESS IN STORAGE. 

; DELETE IT. 

; 'NEW ' > 'OLD'? 

} YES. 


; ADJUST 'BLOW' FOR NEXT LINE. 


? MOVE 'RTMP' FOR INSERTION. 

; ADJUST 'BHIGH' FOR NEXT LINE, 


? ALLOCATE IT (MUST BE ROOM), 

; COPY STATEMENT FROM 'TEXBUF'. 
; # - 1 OF BYTES. 


t 


ADJUST 'RTMP' FOR NEXT LINE. 


PILOT 



-- h • B • 
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; any more to 

MOVE? 



9325 

Ac 1 3 


LDX 

ABLOW-DTAB 



9327 

A 0 1 5 


LOY 

ABHIGH-DTAB 



0329 

20159C 


JSR 

PCMFI 



932C 

QQAA a 92D8 


8CC 

: XR300 

• 

9 

YES. 

932E 

202C65 

: XR50 0 

JSR 

RDYMES 

• 

9 

ALL DONE. 

9331 

A 9 0 0 


LD A 

#0 

• 

9 

SET CC FOR NORMAL EXIT 

9333 

F 029 A 935E 


BEG 

: XR99Q 

• 

9 

(BRA) . 



; ERROR 

-- MAXIMUM LINE NUMBER 

EXCEEDED. 

9335 

A99B 

: XRbOO 

LD A 

ARENERR 

• 

9 

CAN'T RENUMBER. 

9337 

20FP84 


JSR 

MESSOT 



9i 3 A 

A9«D 


LDA 

ALNCERR 

• 

9 

LINE * OUT OF RANGE. 

933C 

20 F FB4 


JSR 

MESSOT 



933P 

4C2E93 


JMP 

: XR5 0 0 





• 

9 

? ERROR 

-- OVERLAPPING RANGE. 





• 

9 

'ALINE 

' FIRST NEW LINE. 





• 

9 

' k TMP ' 

LAST. 



9342 

A99b 

: XR70 0 

LDA 

ARENERR 

• 

9 

CAN'T RENUMBER. 

9344 

20FF84 


JSR 

MESSOT 



93^7 

A99C 


LDA 

AOVLPER 

• 

9 

OVERLAPPING RANGE. 

9349 

20FFB4 


JSR 

MESSOT 



934c 

A27A 


LDX 

AALINE-DTAB 

• 

9 

FIRST NEW LINE. 

934 E 

?0149fc 


JSR 

DEC A SC 



9351 

A99D 


LDA 

ATONES 

• 

9 

TO. 

9353 

20FFB4 


JSR 

MESSOT 



9356 

A219 


LDX 

ARTMP-DTAB 

• 

9 

LAST NEW LINE. 

9358 

20149E 


JSR 

DEC A SC 



9358 

4C2E93 


JMP 

: XR500 




? ERROR -- SYNTAX. 


935 t SXR900 


; EXIT. 


935E 

08 

JXR990 PhP 


; SAVE CC. 

935F 

A4AB 

LD Y 

X TEMP 

; RESTORE Y. 

9361 

26 

PLP 


? RESTORE CC 

9362 

60 

RTS 





? DEFAULTS FOR 

'RENUMBER'* 


9363 

0 AGO 

RENNMS Dw 

1 0 

? FIRST NEW. 

9365 

OAOO 

DW 

10 

t INCREMENT. 

°36 7 

0000 

DW 

0 

} FIRST OLD. 

9369 

0P27 

Dw 

maxln 

? LAST OLD. 

936B 

FFFF 

Dw 

EONMLS 



' 


Ve r 


PILOT 

9360 
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PROC 

9 

; MNYNMS -- RETURN 'MANY' NUMBERS FROM ' INLN ' 

, 

; CALLING SEQUENCE : 

; 'INLN' POINTS TO THE STATEMENT LINE 

; Y = CUPPENT OFFSET IN 'INLN' 

; 'POINT' = LIST OF VALUES FOR INITIALIZING ' NM SB F ' 

; JSR MNYNNS 

6NE SYNTAX ERROR, RANGE ERROR, OR TOO MANY NUMBERS (AsERROR 

CODE) 


X 

'NMSBF ' 
Y 

X TEMP 


NUMBER OF NUMBERS FOUND. 
LIST OF NUMBERS 
CURRENT OFFSET IN 'INLN' 
CURRENT OFFSET IN 'INLN' 


'NMSBF' IS INITIALIZED FROM THE LIST APDRESSFD BY 'POINT'. 




• 

9 

'EONMLS 

' REPRESENTS 

THE END-UF-L I ST . 



• 

9 

IF TOO 

MANY NUMER ARE 

IN THE SOURCE TEXT, AN ERROR CODE WILL BE 



• 

9 

• 

RECOGNIZED. 


936D 

84 AB 

9 

MNYNMS 

STY 

XTEMP 


936F 

A 0 0 0 


LDY 

A 0 

; INITIALIZE 'NMSBF' FROM 'POINT', 

9371 

B 1 86 

: Mi N 0 1 0 

LDA 

(POINT), Y 


9373 

995305 


STA 

NMSBF, Y 


9376 

ce 


INY 



9377 

0 1 Bb 


LDA 

(POINT) , Y 


9379 

995305 


STA 

NMSBF, Y 


937C 

C 8 


INY 



937D 

C9FF 


CMP 

AH I GH EONMLS 

; CHECK FOR END OF LIST, 

937F 

D 0 F 0 a 937 1 


BNE 

I MNO 1 0 


9381 

A4AB 


LDY 

XTEMP 

? RESTORE Y. 

9383 

A 900 


LDA 

AO 


9385 

85B6 


STA 

POINT 

? INITIALIZE OFFSET TO STORE NEXT VALUE. 

9387 

20079F 

: MN020 

JSR 

SKPSEP 

? SKIP LOADING SEPARATORS. 

938 A 

206E81 


JSR 

ATOM 

; GET NEXT NUMBER. 

938D 

D032 A 93C 1 


BNE 

: MN099 

} ERROR -- RETURN. 

938 F 

C901 


CMP 

ANULL 

; CHECK FOR 'EOL'. 

9391 

F02E A 93C 1 


BEG 

IMN099 

• 

UJ 

z 

o 

0 

1 
1 

o 

UJ 


93°3 C902 

9395 D026 A 93BF 


CMP ANUN 

BNE SMN090 


CHECK FOR NUMBER. 
NO -- ERROR. 


9397 84 A B 

9399 A23B 
9390 206694 

93°E p 0 1 B A 93B6 


STY 

LDX 

JSR 

PCS 


XTEMP 

• 

9 

SAVE 

anumber-dtab 

• 

9 

CHEC 

CHKLN 



:MNOeo 

; 

NO - 


Y. 

IF NUMBER IS IN RANGE. 
OUT OF RANGE. 


93 A 0 At>B6 
93A2 A9FF 


LDX POINT 

LDA AiFF 


? INDEX IN 'NMSBF'. 
; CHECK IF TOO MANY 


VALUES. 


PILOT 
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Q3A4 

DD5405 


CKP 

NMSBF+1 , X 



93 A 7 

F 0 t 6 *938F 


BEQ 

: M N 0 9 o 

• 

9 

YES — TOO MANY, 

93A9 

A5B 8 


L D A 

NUMBER 

• 

9 

COPY TO NEXT POSITION IN 

93 A B 

9 D 5 3 0 5 


STA 

NMSPF, X 



93AE 

A5B9 


LD A 

NUMBER* 1 



93BO 

9DS40B 


STA 

NMSPF+1 ,X 



°393 

E8 


I N X 




•5304 

E8 


I NX 




P3B5 

86B6 


STX 

POINT 

• 

9 

UPDATE INDEX. 

9397 

A4AB 


LDY 

XTEVP 

• 

9 

RESTORE Y. 

9 3B9 

DOCC A 9387 


BNE 

JMN020 

t 

(BRA) . 



} OUT 

OF RANGE 




93PB 

A98D 

:MN080 

LD A 

0LNOERR 



93BD 

D 0 02 A 9 3C 1 


BNE 

SMN099 

) 

(BRA) , 



? NEXT 

'ATOM' 

IS NOT A NUMBER, 

OR 

TOO MANY NUMBERS. 

R3BF 

A9 02 

SMN090 

LD A 

# IMPERR 

} 

IMPROPER PARAMETER ERROR 

93C1 

08 

SMN099 

PhP 


• 

9 

SAVE CC. 

93C2 

A5B6 


LD A 

POINT 

} 

INDEX IN 'NMSBF ' , 

93C4 

4 A 


LSR 

A 



93C5 

AA 


TAX 


• 

9 

AS ADVERTISED. 

93C6 

28 


PLP 




93C7 

60 


RTS 





'NNSBF ' . 




93C8 


PROC 


! BPACKT -- BRACKET A RANGE OF LINES 
? 

? CALLING SEQUENCE! 


; 


9 

) 

} 

? 

} 

; 

} 

? 

j 


'LS' 

'LEND' 

JSR 

BNE 

'BLOW' 

'&HIGH' 

'0NUM' 


= START OF RANGE 
= END 

BRACKT 

'LS' > 'LEND' 

= ADDRESS OF START OF RANGE 
s ADDRESS OF (PAST) END OF RANGE 
= # OF LINES IN THE RANGE 




• 

9 

• 

9 

USES 

'LINENO', 'POINT' 


93C8 

93CA 

93TC 

93CF 

A260 
A 05E 
20159C 
9040 A 94 1 1 

} 

BRACKT 

LDX 

LDY 

JSR 

BCC 

#LEND-DTAB 

#ls-dtab 

DCMPI 
! 0 R 0 9 0 

? CHECK IF 'LS' <= 'LEND 
} ERROR -- 'LS ' > 'LEND' 


93D 1 A9 0 0 


INITIALIZE * 



t 


LD A 


n 0 


r 


OF LINES 


ATARI CAMAC Assembler Ver i.OA Page 127 
PILOT - - H , B • STEWART DlsPILOT. 


93D3 8 59 7 

9305 8598 

9307 A25E 
9309 205094 


93DC 

93DE 

93E0 

93E3 

93E5 


A 2 1 3 

A04£ 

20459A 

A236 

20459A 


STA 

STA 

LOX 

JSR 

LDX 

LOY 

JSR 

LOX 

JSR 


BNUM 
BIMUY + 1 

i&LS-DT A8 
LNFIND 

A8LCW-0TAB 

4PP-DTAB 

DMO V I 

4P0INT-DTAB 
DMO V I 


; 'BLOW' = ADDRESS OF 'LS' OR SUCCESSOR. 
t USE 'POINT' FOR CURRENT LINE ADDRESS, 


93E8 


rBROlO 






? *s* 

LDX 

MPOINT-DTAB 


93E8 

20 1 39 A 


JSR 

SEND 

? CHECK IF END OF LIST. 

93Eb 

F01B A 94 0 6 


BEO 

: BR050 

? YES -- DONE. 

93 ED 

208C9F 


JSR 

GTLNNO 

; 'LINENO' IN L/H ORDER FROM 'POINT'. 

93 P 0 

A260 


LDX 

ALEND-DTA9 

; CHECK IF CURRENT LINE IS IN RANGE. 

93F2 

A 05C 


LDY 

4LINEN0-DT AB 


93F4 

20159C 


JSR 

DCMFT 


93 F 7 

90 0 F A 94 08 


BCC 

: BR050 

? NO -- NOT IN RANGE. 

93 p 9 

A 9 0 1 


LD A 

41 

t ONE MORE LINE IN RANGE. 

93 F B 

A 2 1 7 


LDX 

4BNUM-DTA6 


93 F D 

20049D 


JSR 

DADDS 


9400 

A236 


LDX 

APOINT-DTAB 

i POINT TO NEXT LINE. 

9402 

2 0 A A 9 A 


JSR 

SNXTI 


9405 

4CE693 


JMP 

: BRO 1 0 

; CHECK NEXT LINE. 



; CURRENT LINE 

IS NOT IN THE RANGE. 

940B 

A21S 

JBR050 

LDX 

*BH I Gh-DT AB 

; AS ADVERTISED. 

94 0A 

A 0 36 


LDY 

«POINT-DTAB 


94 OC 

20459A 


JSR 

DMO V I 


94 0 p 

A 90 0 


LD A 

no 

; SET CC FOR EXIT. 



) +S* 

RTS 





} ERROR 

-- 'LS' 

> 'LEND' 


9411 60 

r BR090 

RTS 




9412 


PKOC 

GTLSLN -- GET LINE NUMBER OF LAST PROGRAM LINE ♦ 10 
CALLING SECUENCEI 

JSR GTLSLN 

'LINENO' s LAST LINE NUMBER ♦ 10 (0 IF EMPTY). 


9412 P4AB 


GTLSLN STY 


XTEMR 


; SAVE Y. 


PILOT 
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Q 4 1 4 A900 

9416 850C 

9416 85PD 
9 4 1A 209R9E. 

9410 A23A 
94 1 F ? 0 1 39 A 
°422 F 0 1 4 A 9438 

9424 A 0 3 A 
9426 A236 

9426 20459a 

942b A23 A 

9420 2 0 A A 9 A 

9430 20 1 39 A 

9433 DOER A 9424 

9435 208C9F 


9436 
9 4 3A 
943C 

94 3 F 
9441 


A25C 
A 9 0 A 
200490 

A4A5 

60 


: GIO 1 0 


: GLQ9Q 


LDX 

JSR 

BEQ 


JSR 


#0 

L INENO 

LlNeNC+1 

stmlst 

alp-dtar 

SEND 

JGL090 


01 JPILOT. 

; 'EMPTY ' VALUE. 
) 'LP ' = 'S1L' 


? TRAP FOR PROGRAM EMPTY. 
l EMPTY. 


0 T A 6 
NT-OTAB 

1 

• 

i 

UPDATE 'POINT'. 

DTAB 

I 

) 

NEXT LINE. 

10 

} 

KEEP CHECKING. 

NO 

; 

'LINENO' FROM 'POINT'. 

FNO-DTAB 

? 

LAST LINE + 10 

S 



P 

• 

/ 

RESTORE Y. 


9442 


PROC 

; 

? RENFNO -- FIND LINE FOP 'RENUMBER' 

§ 

; CALLING SEQUENCE: 

; 

X = DTAB OFFSET TO LINE NUMBER 






'BLOW' 

= ADDRESS OF 

FIRST 

LI 





' 8H I GH ' 

= ADDRESS PAST LAST 




\ 

JSR 

RENFNO 







A 

= 0 VALID 








1 LINE OVERLAPS 

A N 





PP 

= ADDRESS OF 

LINE 

COR 

9442 

205094 

fi 

?ENFND 

JSR 

L NF INC 

• 

r 

FIN 

9445 

0010 A 9457 



BNE 

! R FD6 0 

7 

NO 

9447 

A24£ 



LDX 

app-dtab 

; 

>s 

9449 

A 0 1 3 



LDY 

8BLCW-DTAB 



9446 

20159C 



JSR 

DCMPI 



944£ 

9 0 0 A A 945 A 



BCC 

SRFD90 

• 

i 

NO 



• 

f 

★s* 

LDX 

APP-DTAB 



9450 

A 0 1 5 



LDY 

ABHIGH-DTAB 

f 

< ' 

9452 

2 0 1 5 9 C 



JSR 

DC^PI 



9455 

B003 A 945 A 



BLS 

: RFD90 

• 

/ 

NO 


BLOW'? 


ERROR. 
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D 1 :PILOT , 

9457 

9459 

A 9 0 0 
60 

SRFDflO 

LDA 
R 1 3 

»0 

t CLEAR A FOR EXIT 

945 A 
945C 

A 9 0 1 
60 

TRFD90 

LDA 

RTS 

• 1 

i SET A FOR ERROR, 

«45D 


• 

# 

PROC 




lmfinu -- FIND line number 


CALLING SEQUENCE 

X = OFFSET TO DTAB LINE NUMBER 
JSR LNFIND 

8NE NOT FOUND (PP POINTS TO SUCCESSOR) 
PP = ADDRESS CF LINE (OR SUCCESSOR) 


USES LTNFNO 


9450 

6580 

; 

LNFIND 

Q4SF 

85DD 


9461 

B581 


9463 

65DC 


«465 

20FD7A 


9466 

4C5B99 



LDA 

DTAB, X 

; 

ST A 

l INENQ+1 


LDA 

DTAB+1 , X 


STA 

LINENO 


JSR 

numnam 

• 

9 

JMP 

IFIN'D 

) 


9466 PROC 

; CHKLN -- CHECK STATEMENT LINE # 


INVERT LINE NUMBER FOR SEARCH 


SETUP 'LINENO' FOR SEARCH. 
FIND LINE (OP SUCCESSOR), 


FOR OUT OF RANGE, 


CALLING SEQUENCE: 

X = DTAB INDEX TO LINE NUMBER, 




w 

} JSR 



; bcs 

• 

9 

9466 

A 02 7 

CHKLN LDV 

9460 

A 9 1 0 

LDA 

94 6 F 

200F9C 

JSR 

9472 

9002 A 94 76 

BCC 

9474 

A96C 

LDA 

9476 

60 

: CL090 RTS 


CHKLN 

OUT OF RANGE (A s ERROR CODE) 


# HIGH CM A XLN + 1 3 

* LCW [MAXLN+1] 

C C Vv 1 C I 

•CL090 ? NOT OUT OF RANGE, 

#LNCERR 


9477 PHOC 

9 
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t NMOVl -- MOVE VALLE FROM 'NMSBF' 
CALLING SEQUENCE: 

X = DTA8 OFFSET TO DESTINATION 
Y = 'NMSBF' OFFSET 

JSR NMOVl 

DTABCX) = NM S8 F + Y / + Y + 1 


9477 B95305 

°4 7 A 9560 
947C 695405 

94 7 F 9581 
9481 60 


NMOVl LOA 


STA 

LDA 

STA 

RTS 


NNSBF, Y 
0TA6,X 
NMSBF+l , Y 
DTAB+1,X 
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; 

? I/O SUPSYTEM ROUTINES 

; 


9482 PROC 

J 

; CHOT -- PRINT ONE CHARACTER TO "E:". 




• 

9 

A = atascii character 





m 

9 

• 

'CDEST 

' = I/O ROUTINE 

OFFSET OP S80 + XX OR $ F F . 



9 

• 

f 

• 

JSP 

CHOT 



9482 

8 fc A 1 

chot 

STX 

TENP 

• 

9 

SAVE REGISTERS. 

94*4 

84A2 


STY 

TEMP+1 



9486 

AE3005 


LDX 

COEST 

} 

PREPARE TO OUTPUT TO DEVICE. 

9489 

300E a 9499 


BMI 

:CH100 

• 

9 

SPECIAL OUTPUT. 

9486 

20B797 


JSR 

I OH AND 





; *** 

EXTERNAL 

ENTRY FOINT *** 



948E 

COOO 

IOERCK 

CRY 

80 

• 

9 

ERROR CHECK. 

9490 

1 0 1 A A 94 AC 


BPL 

: CH 1 20 

• 

9 

O.K. 



? *** 

EXTtRNAL 

ENTRY FOINT *** 



9492 

84E4 

IOE010 

STY 

IOSTAT 

• 

f 

SAVE I/O STATUS. 

9494 

A986 


LOA 

8I0ERR 



9496 

4 C 3 A 7 A 


JMP 

PSTCP 

• 

9 

STOP ON ERROR. 

9499 

EOFF 

8 C H 1 0 0 

CPX 

#$FF 

? 

RESULT TO 'TEXBUF'? 

9496 

F 0 0 5 A 9 4 A 2 


BEQ 

:CH1 1 0 

• 

9 

YES. 

9490 

A230 


LDX 

8I0CB3 

• 

9 

NO -- TO IOCB 3. 

949F 

4C6397 


JMP 

D 100 05 

9 

9 

OUTPUT CHARACTER AND RETURN 

94 A2 

A 48 F 

8 C H 1 1 0 

LOY 

TELN+3 

• 

9 

GET INDEX. 

94 A 4 

r 0 FH 


CFY 

8TEXLNG 

9 

9 

BUFFER FULL? 

94A6 

F004 A 94 AC 


BEQ 

: CH120 

9 

9 

YES -- STORE NO NORE. 

94 A 6 

9 1 6 C 


STA 

(TELN ) # Y 

9 

9 

NO -- STORE CHARACTER. 

94 AA 

E 68 F 


INC 

TELN+3 



94 AC 

A4A2 

! C H 1 2 0 

LOY 

TEMP+1 

9 

9 

RESTORE REGISTERS. 

94 A E 

A 6 A 1 


LOX 

TEMP 



94 R 0 

60 


RTS 





94 p 1 PROC 

? GETLIN -- GET LINE FROR " E 5 " 

; 
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CALLING SfcGUENCE: 

X = OFFSET TO BUFFER ADDRESS. 
JSR GETLIN 




• 

9 

DTA8CX+2) = 0 -- START 

INOEX. 



? 

• 

DTA8CX+3) = LINE LENGTH 

- 

- END INDEX. 

94B1 

8fc A3 

GETLIN 

ST X 

TEMP+2 

• 

9 

SAVE INDICES. 

9483 

84A4 


STY 

TEVP+3 



94*5 

A900 


LDA 

#0 

9 

9 

ENABLE TEXT CURSOR. 

9487 

9582 


ST A 

CTAB + 2, X 

; 

AS ADVERTISED. 

94B9 

2 0 A 7 9 F 


JSR 

CRSNOP 

; 

HAKE CURSOR SHOk NO W, 

94BC 

P58C 


LDA 

OTAB,X 

; 

SETUP BUFFER ADDRESS. 

94 BE 

8 D4 4 0 3 


STA 

IOCBO+ICBAL 



94C 1 

BSP 1 


LDA 

DTAB + 1 , X 



94 C 3 

8C4503 


STA 

IOCBO+ICBAH 



9 4 C 6 

A905 


LDA 

*GETR 

? 

GET RECORD COMMAND , 

94C6 

6D4203 


STA 

IOCBO+ICCOM 



94C6 

A 97 9 

:gloio 

LDA 

ALINlNG-1 

• 

9 

SETUP MAXIMUM LINE LENGTH 

94CD 

804803 


STA 

IOCBO+ICBLL 



94D0 

A200 


LDX 

AICCBO 

• 

9 

I OCB 0. 

9402 

8E4903 


ST X 

ICCBO+ICBLH 

} 

*S* . 

9405 

205feE4 


JSR 

CIO 

9 

9 

DO I/O. 

9408 

coe9 


CPY 

A$89 

9 

9 

TRUNCATED RECORD? 

Q4Da 

oooe a 94E4 


BNE 

: GLOPO 

} 

NO. 

940C 

A 9 0 F 


LOA 

AOLLERR 

• 

9 

YES -- INFORM OPERATOR & 

94DE 

20FFB4 


JSR 

MESSCT 



94F 1 

4CCB94 


JMP 

: GLO 1 0 



94E4 

98 

! GL020 

TYA 


9 

9 

ERROR CHECK 

94E5 

30A8 A 9492 


BP I 

IGE010 

9 

9 

ERROR. 

94E7 

20A79F 


J5P 

CRSNOP 

; 

DISABLE TEXT CURSOR (A <> 

°4EA 

A fe A 3 


LDX 

TEMP+2 

• 

9 

RESTORE INDICES. 

94EC 

A 4 A 4 


LDY 

TEMF+3 



94FE 

AD4803 


LOA 

IOCBO+ICBLL 

9 

9 

SETUP END INDEX. 

94 F 1 

9583 


STA 

DTAfe + 3 * X 



94F3 

60 


RTS 




94 F4 


• 

PR OC 






; TXCRE 

• 

9 

N -- 

OPEN THE TEXT SCREEN. 


9a F4 

A 2 0 0 

TXOPEN 

LDX 

AO 

} 

RESET GRAPHICS MODE FLAG. 

94F6 

8E1405 


STX 

GRFLAG 



94 F 9 

8E5 1 05 


STX 

LETTRSZ 

9 

r 

SMALL LETTERS. 
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D 1 l P I LOT , 

9aFC 

AEAF05 

STX 

TRTt ON 

t VISIBLE TURTLE OFF, 

9uPF 

200CAo 

JSR 

TRONOF 


9502 

20299© 

JSP 

COMFRS 

i COMPRESS MEMORY. 

«505 

A220 

LDX 

•I0CB2 

; CLOSE 'S'. 

950 7 

203F97 

JSR 

CCLCSE 


95 0 A 

2U0E96 

JSR 

FOPEN 

J OPEN 'E'. 

95 OU 

4C5C96 

JMP 

EXPAND 

t expand memory & return 

9510 


PROC 




J GSOPEN -- OPEN THF. GRAPHICS SCREEN 

; This routine compresses MEMORY, opens the graphics screen and de-compresses 

? THE MEMORY AGAIN. 

; 

9 

; CALLING SEQUENCE J 

9 
9 
; 

/ 


'GSMODE' 

'SPLTSC' 

'FINEFG' 


= SCREEN MODE NUMBER. 

= SPLIT SCREEN OPTION SELECT. 
= FINE SCROLLING FLAG. 


J SR 


GSOPEN 


'xC' & 'YC' = SCREEN CENTER. 
'S2L'4'S2H'= VAR LIMITS. 
'APPMHI' = TCP OF VAPIABLES. 




• 

/ 

'TRTLON 

' s 1 OR 0. 





• 

9 

'THETA' 

= 0 . 





• 

9 

9 

'GX' & 

' G Y ' = 0. 



9510 

202996 

9 

GSOPEN 

JSR 

COMPRS 

• 

f 

COMPRESS MEMORY. 



? NOk 

ATTEMPT TO OPEN 'S:' TO 

THE 

DESIRED SCREEN MODE? THERE MAY 



? ENOUGH MEMORY 

# HOWEVER, 



°5 1 3 

A220 

: goo 10 

LDX 

AIOCB2 



9515 

203F97 


JSR 

DCLGSE 



9518 

A 95 3 


L D A 

P'S' 


? DEVICE NAME s 'S', 

951 A 

SD2005 


STA 

GPN6UF 



9510 

A 99g 


LD A 

#EOL 



951 F 

8D2105 


STA 

OPNBUF+1 



9522 

A90C 


L D A 

AQARIT+ORE AD 


; SCREEN OPTIONS. 

9524 

0D5205 


ORA 

SPLTSC 



9527 

At 3 705 


LDX 

GSMODE 

• 

9 

IF NO MODE CHANGE ... 

952 A 

E457 


OX 

DINDEX 



95PC 

0002 A 9530 


8NE 

J GOO 1 2 



952E 

0920 


ORA 

#NOCLR 

? 

... THEN DON'T CLEAR SCREEN, 

9530 

8 D 6 A 0 3 

: GOO 1 2 

STA 

T0C62+ICAUX1 



9533 

6E6B03 


STX 

I0C62+ICAUX2 



9536 

A 90 3 


LD A 

#OPEN 

• 

9 

OPEN COMMAND. 



PILOT 


ATARI CAR'AC Asserrbl 
H.d. STEWART 


er Ver 


1.0A Paqe 13a 

D1 IPILOT. 


9538 

9538 

9530 

95ao 

95a3 

95as 

9547 

954 A 

9540 
9550 
°55 1 
9552 
9595 
9558 
9556 
955E 
9561 
9564 
9567 

956 A 
9560 
0570 
0573 
9576 
9579 

957C 

957 F 
95*a 
9585 
9587 

9589 

958C 

958 F 
9592 

9595 

9596 
9599 
9598 
959 1 
95 A 0 
95 A3 
95 A 5 
95A8 

95 A 6 
95A£ 
9500 

9582 


8D6203 


STA IQC82+ ICCOM 


A220 
208C97 
2056E4 
8 4 £4 

1003 A 954 A 
4 C 1 1 9 o 


LUX # I0CB2 

JSR RUFPNT 

JSR CIO 

STY TOST A T 

8PL J GOO 1 3 

Jmp : G0020 


OPEN DEVICE ON IOCB 2. 
SETUP OPEN BUFFER POINTER, 

SAVE STATUS FOR LATER, 

ERROR -- DON'T PLOT POINT. 


CEF002 

: GOO 1 3 DEC 

CRS I NR 

• 

9 

INHIBIT THE CURSOR, 

AD3705 

LD A 

GSMGDE 

9 

9 

SETUP VQDE DEPENDENT VARIABLES 

0 A 

ASL 

A 

; 

X2. 

AA 

TAX 




6D1&B8 

LD A 

XCENTR t X 



6D6105 

STA 

XC 



B017P8 

LOA 

XCENTH+1 f X 



606205 

STA 

XC + 1 



BD36B8 

LD A 

YCENTR, X 



806305 

STA 

YC 



BD37B8 

LOA 

YCENTR+1 rX 



806405 

STA 

YC + 1 



PD56B8 

LOA 

COLNAX,X 

; 

SET 'FLOOD' LIMITS, 

8 0 A c 0 5 

STA 

MAXCOL 



605788 

LOA 

COLRAXtl ,X 



80 AO 05 

STA 

MAXCCL+1 



007688 

LD A 

RQWNAX, X 



80A605 

STA 

MAXROW 



AE3705 

LDX 

GSMCDE 



0DO6B8 

LD A 

COLRS # X 

• 

f 

n OF FOREGROUND COLORS. 

800905 

STA 

ncolrs 



E003 

CPX 

#2 + 1 

• 

t 

SEE IF MODES 1 OR 2. 

8022 A 95 A 0 

BCS 

f G0015 

• 

9 

NO -- MODE 3-15 

BD9688 

LOA 

LMRGT6, X 

9 

9 

SET MARGINS FOR LARGE LETTERS. 

808505 

STA 

LFCCL 



B099B6 

LOA 

PMRGT8,X 



808605 

STA 

RGCOL 



18 

CLC 




A D A B 0 5 

LDA 

maxrow 



6902 

ADC 

#2 

? 

SET 'BOTSCR' FOR 'XROS'. 

80BF02 

STA 

BOTSCR 



A90 0 

LDA 

8K0FF 

? 

SET TURTLE OFF. 

8u4 F 05 

STA 

TRTLON 



A916 

LDA 

#S p UTC- 10 VB AS 

? 

ROUTE OUTPUTS TO Ss. 

803005 

STA 

CDEST 



4C1 196 

JMP 

:G0020 

• 

9 

AVOID TURTLE SETUP. 

AD6A03 

: GOO 1 5 LOA 

I0CB2+ICAUX1 

• 

9 

WAS SCREEN CLEARED? 

2920 

ano 

#NOCLR 



F 0 1 3 A 9SC5 

BEQ 

! GOO 1 7 

9 

9 

YES. 

ADP905 

LDA 

NCOLRS 

9 

9 

NO -- RE-ESTABLISH COLOR REGS. 



95 Q 5 


46 


t 


:G0016 PHA 


ATANI CAVA C Assembler Ver 
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1 ,0A 


05H6 

95B7 

95Ba 

9SBD 

95*«E 


AA 

PD8B05 
2 0 F 7 A 4 
68 
38 


TAX 

LOA 

JSR 

pla 

SEC 


PNCLRS, X 
SETCLR 


9b8F E 9 0 1 

SBC 

#1 

°5C 1 10F2 *9505 

PPL 

: GOO 16 

95C3 3016 *95DB 

BMI 

J GOO 1 8 

9SC5 2075 AF JG0U17 

JSR 

dfclrs 

95C8 A 9 0 6 

LDA 

AEPUTC-I0V8A 

9 5 C A 8D3005 

STA 

COES T 

95CD A 9 0 0 

LDA 

*0 

«5CF 8DCD05 

SI A 

WALLS 

95D2 8DCE05 

STA 

WALLS+1 

95D5 8D1305 

STA 

PEN 

9508 8D5105 

STA 

LETTRSZ 

°5 DB A 9 0 1 : GOO 1 8 

LDA 

AKON 

95 QD 8D4F05 

STA 

trtlon 

95E0 20B7A3 

JSR 

GHOME 

95E3 2 0 CD A 3 

JSR 

GNORTH 

q 5Eb AD5205 

LDA 

SPLTSC 

95E9 F026 *9611 

BEQ 

: G0020 

95 EB A9E7 

LDA 

A LOW GRDLI 

95ED 8D0002 

STA 

VDSL S T 

95F0 A 9B A 

LDA 

A HIGH GRDLI 

95F2 8D0102 

STA 

VD3L3T+1 

95F5 A 9C 0 

LDA 

A SC Q 

95 F 7 8D0ED4 

STA 

NMIEN 

95FA AE3705 

LDX 

GSMGDE 

95 Fu 8DD0B8 

LDA 

DLICFF, X 

9600 A6 

TAY 


9601 AD3002 

LDA 

SDLSTL 

9604 85 A 1 

STA 

TEMP 

9606 AD3102 

LDA 

SDLSTL+l 

9609 85A2 

STA 

TEMP+1 

9606 6141 

LDA 

(TEMP) , Y 

960D 0960 

ORA 

ASB 

96 0 F 9 1 A 1 

STA 

(TEMP ) f Y 

9611 200CA6 ! G0020 

JSR 

TRONOF 

9614 205C96 

JSR 

EXPAND 

9617 A 4 E 4 

LDY 

IOSTAT 

9g 1 9 1006 *9623 

PPL 

; GO090 


^616 A22G 
9olD 203F97 
96^0 4C9294 


LDX 

JSR 

JMiP 


A IOC 02 
DCLCSE 
TOE 0 1 0 


LDA 


A1 


96 23 A901 


! G009 0 


P 136 

01 : P I LOT . 


; (BRA). 

; SET default colors for mode. 
? ROUTE OUTPUTS TO E:. 

; CLEAR WALL SELECTION. 


; SET PEN TO ERASE & DOWN. 
? LETTER SIZE z SMALL. 

; SET TURTLE ON. 


? TURTLE HOME • 

; TURTLE NORTH. 

? SPLIT SCREEN MODE? 

? NO -- FULL SCREEN, 

? SETUP PILOT'S DLI VECTOR. 


; ENABLE VBLANK 8, DLI. 


? GET MODE DEPENDENT OFFSET FROM START 
; ... OF DISPLAY LIST TO LCC OF DLI. 


; SET THE DLI BIT. 


; ENABLE OR DISABLE VISIBLE TURTLE. 

J EXPAND MEMORY. 

; SEE IF THERE WAS AN I/O ERROR. 

? NO. 

? YES -- CLOSE DEVICE & REPORT ERROR. 




ATARI C AM AC Assembler Ver 1.0A 

Pag 

* 136 

PILOT -- H.6. 

s tewart 



D1 '.PILOT. 

9625 

801U05 

ST A 

GRFL AG 

• 

9 

SET GRAPHICS SCREEN FLAG, 

9628 

60 

RTS 




9e>29 


PROC 






; FIRST COMPRESS THE RAM STORAGE, 

LEAVING THE FREE AREA AT THE HIGH ADDRESSES 



? BY REMOVING THE GAP BETWEEN 

THE 

PROGRAM STORAGE AREA AND THE STRING 



? STORAGE area. 




9b29 

A5B 0 

CGMPRS LD A 

S1H 

• 

'MOP' s 'S1H' (DESTINATION), 

9o?6 

8506 

S T A 

MDP 



9620 

A5P 1 

LDA 

S1H+1 



962 F 

6 509 

STA 

NpP + 1 



9631 

A5B2 

LOA 

S2L 

• 

f 

'MSP' s 'S2L' (SOURCE). 

9633 

85D6 

STA 

MSP 



Q 635 

A5B3 

LDA 

S2L+1 



9o3 7 

8507 

STA 

NSP+1 



9o39 

38 

SEC 


; 

'MBC' = 'S2H ' - 'S2L ' (BYTE COUNT). 

9&3A 

A384 

LOA 

S2H 

• 

9 

('CETEMP' = SAME). 

963C 

E582 

SbC 

S2L 



963£ 

850 A 

STA 

MBC 



9640 

8DB305 

STA 

CETE MR 

• 

9 

(SAVE FOR LATER). 

9643 

A505 

LDA 

S2H+1 



96^5 

E5B3 

S3C 

S2L+1 



9647 

8 50 8 

STA 

MBC + 1 



9649 

8DB405 

STA 

CETE M P+1 



9& 4 C 

18 

CLC 


• 

9 

'APPMHI' = ' S 1 H ' + 'MBC'. 

9&4 D 

A580 

LDA 

S 1 H 



9&4F 

65DA 

ADC 

MBC 



9651 

850E 

STA 

APPMHI 



9653 

A5B1 

LDA 

S1H+1 



9655 

650b 

ADC 

NBC + 1 



9657 

850 F 

STA 

APPMHI+1 



9659 

4CA696 

JMP 

MOVI A 

• 

9 

MOVE STRING STORAGE DOWN & RETURN. 

965C 


PROC 






? NOW MOVE THE 

string storage 

AREA 

UP TO THE CURRENT TOP OF MEMORY SO 



? THAT THE FREE 

AREA IS ONCE 

AGAIN 

BETWEEN THE PROGRAM STORAGE AREA AND 



? THE STRING STORAGE AREA. 



965C 

AU8305 

EXPAND LDA 

CETEMP 

• 

9 

'MBC' s PRIOR 'MBC' (BYTE COUNT), 

965 F 

85D A 

STA 

M6C 



9o6 1 

AD6405 

LDA 

CETEMP+1 



9664 

8506 

STA 

MBC+1 



9666 

A 5B 0 

LDA 

S1H 

« 

9 

'MSP' = ' S 1 H ' (SOURCE). 

9668 

8506 

STA 

MSP 



966 A 

A SB 1 

LOA 

S1H+1 



966C 

BSD 7 

STA 

MSP + 1 



96 6 E 

38 

SEC 


• 

9 

'MDP' s 'MEMHI' - 'MBC' (DESTINATION), 

966F 

ADE502 

LDA 

MEMHI 



9672 

85B4 

STA 

S2H 

• 

9 

'S2H' = 'MEMHI'. 

9674 

E50 A 

sec 

MBC 
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967o 

85De 

STA 

MDP 





9b7« 

85B2 

STA 

S2L 

t 

# S2L' = SAME 

AS NEW 

'MDP' . 

7 A 

ADE602 

LDA 

MEMHlTl 

1 

NOW AS ABOVE 

FOR MSB 

• 

9o7D 

85H5 

STA 

S2Htl 





<>67 F 

E5Db 

SBC 

M8C+1 





96 A 1 

8509 

STA 

MDPtl 





96«3 

8563 

STA 

S2L+1 





9635 

A 9 0 0 

LDA 

AO 

; 

ALLOWS RESET 

IN ANY 

MODE. 

9687 

850E 

STA 

APPMHI 





9o89 

8 5 0 F 

STA 

APPMHI+1 





9686 

A C C A 9b 

JMP 

mqvda 

• 

9 

MOVE STRING 

STORAGE 

TO TOP 


*b8t 


PHOC 


# 



? E OPEN -- OPEN 

t 

IOCb 0 TO E: 

m 

Ro8E 

A 2 0 0 

EOPEN LDX 

PIOCRO 


9690 

203r97 

JSR 

DCLOSE 

m 

9693 

AD6205 

LDA 

FINEFG 


9696 

8D6E02 

STA 

FINE 

m 

o 0 99 

A906 

LDA 

4EPUTC-I0VBAS 


9b9B 

803005 

STA 

CDEST 

m 

969E 

A 94 5 

LDA 

#'E # 


9o A 0 

8D2005 

STA 

OPNBUF 


9 6 A 3 

A996 

LDA 

4E0L 

» 

96 A 5 

602105 

STA 

OPNBUF+ 1 


96A6 

A90C 

LDA 

40REAC+0WRIT 


°6 A A 

20F496 

JSR 

DOPEN 


96 AD 

A552 

LOA 

LMAPGN 


96 A F 

80B505 

STA 

l FCOL 

► 

9682 

A 553 

LDA 

RMARGN 


9694 

8066 0 5 

STA 

RGCCL 


9687 

CEF002 

DEC 

CRSINH 

i 

96 9 A 

60 

RTS 



9o8b 


PHOC 



TSTMOD -- TEST SCREEN MODE' 


? CALLING SEQUENCE; 


} CLOSE E: 

* SET SCROLL MODE. 

; 'CHOT' OUTPUT TO Et. 

? SET DEVICE NAME TO 'E'. 

? OPEN 'E' AGAIN & RETURN 
; ESTABLISH MARGINS. 

; INHIBIT CURSOR, 


GRFLAG = 0 FCR TEXT, ELSE GRAPHICS. 

SPLTSC = 0 FOR FULL SCREEN, ELSE SPLIT. 
LETTRS = 0 FOR SMALL, ELSE MEDIUM OR LARGE. 

JSR TSTMOD 


PILOT -- H-B 
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RETURN. 
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PILOT 

-- h.B, STEWART 



D 1 : P I LOT , 



• 

9 

7 

7 

) 

A s 1 
2 
4 
8 

IF TEXT SCREEN, SMALL LETTERS, 

IF TEXT SCREEN, MEDIUM OR LARGE LETTERS, 

IF GRAPHICS SCREEN, WITH TEXT WINDOW (SPLIT), 
IF FULL GRAPHICS SCREEN. 

9b Pb 
9bBE 

AD 1 4 05 
DOOb A 9bCb 

7 

tstmod 

LDA 

BNE 

GRFL AG 
: TM030 

,• GRAPHICS MODE? 
; YES. 

9bC 0 
9bC3 

AD5105 
0003 A 96C 8 


LUA 

BNE 

LETT RSZ 
! TM020 

; NO — CHECK FOP LETTER SIZE 
7 NOT SMALL. 

96C5 
9 oC 7 

A 9 0 1 
60 


LDA 

RTS 

ATXSL 

J SMALL. 

9bC8 

96CA 

A902 
6 0 

s T M 0 ? 0 

LL) A 
RTS 

ATXML 

} MEDIUM OR LARGE. 

96CB 

9bCE 

AD5205 
F 0 03 A 9 6 D 3 

:TM030 

LDA 

BfcQ 

SPLTSC 

jTMOAO 

; SPLIT SCREEN GRAPHICS? 
; NO -- FULL. 

Q600 

9bD2 

A 9 0 A 
60 


LDA 

R rs 

AGPSS 

. YES -- SPLIT SCREEN. 

9603 

9605 

A 9 0 8 
6 0 

; TMO A 0 

LDA 

RTS 

AGRFS 

? FULL SCREEN GRAPHICS. 

9606 



PROC 





7 

? DNAMF 

-- extract device/filename 



; CALLING SEQUENCE: 




9 

• 

9 

Y = INDEX TO START OF 

NAME 



• 

9 

t 

JSP 

DNAME 




• 

9 

• 

9 

? 

• 

9 

Y = INDEX TC NAME DELIMITER. 

X r 'QPNPUF' INDEX TO CHAR AFTER NAME (EOL). 
'OPNBUF' RECEIVES NAME. 

9606 

9609 

20139F 

4CDC96 

t 

DNAME 

JSR 

JMP 

slb 

FNAME 

7 SKIP LEADING BLANKS. 

7 NAME TO 'OPNBUF' & RETURN 

960C 

9bOC 

A200 

F IV A Ml E 

PROC 

LDX 

AO 


9bOE 
9bF0 
9bE 3 

818 0 
20E09E 

F 0 09 A 9feEE 

SFNOIO 

LDA 

JSR 

BEQ 

( INLN) , Y 
CHKSEP 
S FN020 

; SEPARATOR? 

? YES -- DONE. 

96E5 

9bE6 

902005 

Efc 


s r a 

I NX 

OPNBUF , X 

; N0 -- PART OF NAME. 

9bE9 

96EA 

C6 

EOOF 


INY 

CPX 

adnsize 

; NAME TOO LONG? 


» 

» 

% 
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96EC 

DwFO A 9bDE 

BftE 

: F N 0 1 0 

J NO -- KEEP 

SCANNING . 

06EE 

A 998 

: F N020 L D A 

AEOL 

; APPEND EOL 

AFTER NAME. 

96 F 0 

902 0 05 

STA 

CPN8UF , X 



96 F 3 

60 

RTS 





9&P4 PROC 

; 

; DOPEN -- DEVICE OPEN 

) 

i CALLING SEQUENCE: 


? 'IOEDIS' <> 0 INDICATES TO IGNORE I/O FRROP. 

J X = ioce INDEX. 

? A = OPEN DIRECTION + AUX1 OPTIONS. 

? 'QPN8UF' CONTAINS DEVICE/FILENAME. 

; 

? JSR DOPEN 

9 

; RETURNS ONLY IF OPEN SUCCEEDED. 


96F4 

46 

• 

9 

DOPEN 

PHA 


96 F 5 

2 0 3 F 9 7 


JSR 

DCLCSE 

96F6 

66 


PLA 


96 FV 

86 A 1 


STX 

TEMP 

°6 F B 

64A2 


STY 

TEMp+1 

9 o F D 

OD 1 DOS 


ORA 

AUX1 

9700 

9D4a03 


STA 

ICAUX1 ,X 

9703 

2 0 B 7 9 8 


JSR 

CHKDE V 

9706 

AD 1 £05 


L D A 

A UX2 

9709 

904603 


STA 

ICAUX2, X 

97 0 C 

A 9 0 0 


LD A 

40 

970E 

904803 


STA 

ICBLLrX 

9711 

904903 


STA 

ICBLH/X 

9714 

8D1D05 


STA 

A U X 1 

9717 

80 1 E 05 


STA 

AUX2 

971 A 

A903 


LD A 

POPEN 

971C 

9D4203 


STA 

I C C 0 M / X 

971 F 

206C97 


JSR 

RUFPNT 

9722 

2056E4 


JSR 

CIO 



} 

• 

9 

• 

JSR 

COLCRS 

9725 

98 

9 

T Y A 


9726 

1026 A 974E 


BPL 

DOPOIO 


; SAVE OPEN CODE. 
t *** JUST IN CASE * * * , 
; RESTORE OPEN CODE. 


? MERGE USER BYTE. 

? SETUP OPEN DIRECTION. 

? CHECK FOR INVALID OPEN. 

? SETUP AUX2 , 


; SETUP FOR ACCUMULATOR XFER OF DATA. 
? CLEAR USER BYTES. 


; OPEN COMMAND. 


? SETUP OPEN BUFFER POINTER. 


? RE-ESTABLISH SPECIAL COLORS. 

J *** NEEDED ONLY IF OUTPUT TO S: OR E 
; IN GRAPHICS MODE 

; CHECK STATUS. 

? 0, K . 


; *** EXTERNAL ENTRY POINT *★* 
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: ALLOWED 




• 

PILOT 

-- H.B. STEWART 




Dt : PILOT. 



• 




X r 

IOCB INDEX. 









Y = 

ERROR STATUS 

ON ENTRY 

• 



• 

9726 

AD0405 OOP 0 05 

LD A 

IOEDIS 

• 

9 

FRROR STOP OISABLED? 




972B 

08 


php 







° 7 2C 

A 99 0 


LD A 

#EOL 

• 

9 

(RETURN EOL CHAR ON ERROR). 



• 

972E 

26 


PLP 







972F 

Fooe A 97 39 


BEQ 

: D0007 

• 

9 

NO. 



• 

97*51 

A5FF 


LD A 

RUN 

• 

9 

YES -- IS IT ALSO RUN MODE? 




9733 

03 


PhP 







$734 

A 9 9 B 


LD A 

*EOL 

• 

9 

RETURN EOL ON ERROR. 



• 

9736 

28 


PLP 







9737 

DO 1 5 A 97 4E 


BNE 

DQP01 0 

• 

t 

YES. 



• 

9739 

203F97 

ID0007 

JSR 

DCLOSE 

} 

NO -- CLOSE FILE IN ERROR. 




973C 

4C9294 


JMP 

IGE010 

• 

9 

ERROR -- STOP (SKIP BRANCH POINT). 













• 











973P 

< 

> 

PROC 






• 


1 

< 

1 

t 

' DCLOSE 

■* v 

CLOSE IOCB 






CALLING SEQUENCE; 

X s IOCB INCEX 




• 

9 

• 

J3R 

DCLOSE 



9 

? note; 

• 

CLOSE 

STATUS IS OF NO IMPORTANCE TO THIS ROUTINE. 

973F 

3bA 1 

DCLOSE 

ST X 

TEMP 

9741 

84 A 2 


STY 

TEMF+1 

97 43 

A90C 


LD A 

#CLQSE 

9745 

904203 


STA 

ICCGMrX 

97 48 

205bE4 


JSR 

CIO 

974B 

20649F 


JSR 

AUDCLR ? CLEAR AUDIO REGISTERS. 



; *** EX 

ternal 

ENTRY POINT *** 

9742 


DOPOIO 



974E 

A6 A 1 

DI0010 

LDX 

TEMP ? RESTORE REGISTERS. 

9750 

A4A2 


LDY 

T£Mp + 1 

9752 

60 


RTS 


97^3 


• 

PROC 




9 

} DIN % 

DOUT - 

- IOCB DATA IN AND OUT 


* 


CALLING SEQUENCE: 


pilot 


ATARI CAMAC Assembler Ver 
H.B. STEWART 


1 . 0 A Pape 1 A 1 

D1 JPILOT. 


'IOEDIS' <> 0 INDICATES TO IGNORE I/O ERROR. 
X = IOCB IMDEX 
A = DATA C'DOUT' ONLY) 

J SR DIN/DOUT 


A s DATA C'DIN' ONLY), RETURNS EOL ON ERROR. 


9753 

48 

DIN 

pha 




9754 

A90 7 


LDA 

AGETC 

• 

9 

SETUP COMMAND BYTE 

9756 

D003 A 975b 


BNE 

: 10003 

) 

(BRA) . 

9758 

ad 

DOUT 

PHA 


; 

SAVE DATA BYTE. 

0759 

A90B 


LDA 

APUTC 

t 

SETUP COMMAND BYTE 

975b 

9D4203 

: 10003 

ST A 

ICCOW,X 



975E 

66 


pla 




9 75F 

66 A 1 


ST X 

TEMP 

• 

9 

SAVE REGISTERS. 

9761 

6 4 A 2 


STY 

TEMP+1 




? *** EXTERNAL ENTRY POINT FROM 'CHOT' *** 


9763 

2056E4 

DI0005 JSR 

CIO 

9766 

64E4 


STY 

IOSTAT 

9768 

COOO 


CP Y 

#0 

9 76A 

1 0E2 

*974E 

BPL 

CIOOIO 

976C 

A 996 


LDA 

*EOL 

976E 

C 066 


CP Y 

*$88 

9770 

0086 

*9 728 

BNE 

DOP005 

9772 

FODA 

A 974E 

8EQ 

DI0010 


? SAVE I/O STATUS. 

; CHECK STATUS. 

; o.K. 

; RETURN EOL ON ERROR. 

; END OF FILE? 

. NO -- FATAL ERROR (SKIP BRANCH). 
? YES -- RETURN EOL (BRA). 


9774 PROC 

? KIN -- KEYBOARD CHARACTER INPUT 
? CALLING SEQUENCE: 




; 

JSR 

KIN 



? 

a 

! 

A = 

ATASCII CHAR 

9774 

86A1 

KIN 

STX 

TEMP 

9776 

84A2 


STY 

T£MP + 1 

9778 

A.224 


LDX 

#KGETC-I0VBA3 

9 7 7 A 

20B797 


JSR 

IOHAND 

977D 

4C8E94 


JMP 

TOERCK 


SAME REGISTERS. 

GET CHAR FROM 'K'. 

CHECK FOR ERROR & RETURN. 


9780 


PROC 

TOUT — GRAPHICS DATA OUTPUT 
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ATAnI CAMAC Assembler Ver l.OA Pege 142 
PILOT -- H.B. STEWART DlJPILOT. 


? CALLING SEQUENCE: 

J 




} 

i 

t 

t 

TOUT 

A s 

ONE GRAPHICS PIXEL 




JSR 

TOUT 


97 8 0 

8 6 A 1 

ST X 

TEMP 

• 

9 

97*2 

84A2 


STY 

TEMP+1 


9784 

A216 


LDX 

8SPUTC-IOVBAS 

• 

9 

9786 

208797 


JSR 

IOHAND 


9789 

4C8E94 


JMP 

IOERCK 

• 

9 


078C 


PROC 

978C 

A920 

8UFPNT LDA 

973E 

9D4403 

STA 

Q 7 9 1 

A905 

LDA 

9793 

9D4503 

STA 

P 7 9 6 

60 

RTS 

9797 


PROC 

• 

1 


97 97 
9799 
9798 
9790 
979F 
9 7 A 1 
9 7 A 3 
97A5 


97 AB 
97 A D 
97AE 
97B1 

97B4 

9786 


8 4 A A 
B58 0 
85 A 7 
B581 
8SA6 
6583 
85 A9 
8482 


* L G W OPNBUF 
ICBAL / X 
*f HIGH OPNBUF 
ICSAH, X 


9 7 A 7 C 4 A 9 

97 A9 Fu09 A 9704 


8 1 A7 
CS 

208294 

4CA797 

A4A A 
60 


; POINT TO NAME BUFFER FOR OPEN, 


PRTSTG -- PRINT TEXT DATA 
CALLING SEQUENCE? 

X = OFFSET TO TEXT DATA POINTER, 


PRTSTG 


IPR010 


: PR08G 


JSP 

STY 

LDA 

STA 

LDA 

STA 

LDA 

STA 

LDY 

CPY 

B£Q 

LDA 

INY 

JSR 

JMP 

LDY 

RTS 


PRTSTG 

TEMP2+3 
D r A 0 » X 
TEMF2 
DTA8+1 t X 
TEMP2+1 
DTA8 + 3 f X 
'TEMP2 + 2 
DT AB + 2 r X 

TENF2+2 
: PR080 

( TENP2 ) » Y 

CHOT 

SPR010 

TEMP2+3 


; MOVE POINTER. 

? ENDING INDEX. 

? STARTING INDEX. 

; COMPARE START INDEX WITH END 
; EQUAL -- DONE. 

; GET NEXT CHARACTER. 

? PRINT CHARACTER. 


INDEX. 
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07P7 PROC 

9 

} IOHANJD -- DIRECT I/O TO INTERFACE ROUTINE 
; 

? CALLING SEQUENCE; 




• 

9 

• 

9 

• 

X = I/O 

ROUTINE OFFSET 

TO 

ADDRESS TABLE FNTRY (SYSTEM) 



• 

9 

} 

• 

9 

• 

J3R 

IOHAND 





CLOBBERS 

Y REGISTER. 



9 78 7 

A 8 

9 

IOHAND 

tay 


? 

SAVE REGISTER A. 

°7R8 

P001E4 


LD A 

IOVBAS+1 , X 

• 

9 

GET ADDRESS MSB . 

97 Rd 

46 


PHA 




97BC 

6D00E4 


LD A 

IOVB AS + O t X 

7 

GET ADDRESS USB. 

97 8 F 

46 


PHA 




97C0 

98 


T Y A 


• 

9 

RESTORE REGISTER A, 

97C1 

60 


RTS 


; 

CJMP) TO HANDLER. 
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97C2 


PROC 

9 

; sfname -- get device name AND STORE in 'OPNBUF'. 

9 

; calling sequence: 




• 

9 

'EXEC = 0 FOR SCAN MODE/ 


ELSE EXECUTE. 



• 

9 

'XXXX' = INPUT 

LINE INDEX 

• 



9 

9 

m 

X = 

INDEX TO EOL IN 'OPNBUF'. 



V 

; 

J SR 

SFNAME 






? 

• 

RNE 

ERRCR ( 

A = ERROR 

CODE). 



9 

• 

9 

'OPNBUF ' = DEVI 

CE NAME. 





• 

9 

• 

Y = 

INPUT LINE 

INDEX TO 

F 

IELD AFTER DEVICE/FI 

97C2 

206E91 

9 

SFNAME 

J SR 

ATOM 


? 

GET DEVICE/FILENAME 

97C5 

D 0 0 A *97D1 


BNE 

: SF090 


* 

9 

ERROR. 

97C7 

C920 


CMP 

4TEXT 


• 

9 

TEXT LITERAL? 

^7C9 

F 0 0 7 A 97D2 


0EQ 

: S F 1 0 0 


• 

9 

YES. 

97CB 

2916 


AND 

4SVARtUSVAR 

9 

9 

STRING NAME? 

97CD 

DOOC A 97DB 


BNE 

! SF200 


9 

9 

YES. 

97CF 

A902 


LDA 

4IMPERR 


9 

9 

NO -- ERROR. 

97D1 

60 

JSF090 

RTS 



9 

9 

RETURN WITH CC SET. 



? SCAN 

TEXT 

LITERAL DATA TO EXTRACT DEV I CE/F RENAME , 

97D2 

20DC96 

S S F 1 0 0 

JSR 

fname 


9 

9 

NAME TO 'OPNBUF', 

9705 

8C4805 


STY 

XXXX 


9 

9 

SAVE LINE INDEX. 

9706 

A90 0 


LDA 

#0 


9 

9 

SET CC FOR NORMAL E 

9 7 0 A 

60 


RTS 



9 

9 

RETURN WITH CC SET, 


; device/filename is a string variable value 


97DB A592 
97DD F0F2 A 97D1 

97 0 F 8CAS05 
9 7E2 A 20 0 
97E4 A4C4 


: SF200 LD A 
BEQ 


EXEC 

.•SF090 

xxxx 

40 

DP + 2 


; EXECUTE MODE? 
? NO -- DONE. 


97F6 C4C5 
97E6 FOOB A 97F5 

97EA B1C2 

97EC 9D2005 

97EF C.d 

9 7 F 0 E6 

97 F 1 EOOF 

97 F 3 DO F 1 A 97E6 


JSF220 


CRY 

BEQ 

LDA 
STA 
INY 
I NX 
CPX 
BnE 


DP + 3 
SSF250 

C DP ) » Y 
OPNBUFrX 


4 D N S I Z E 
: SF22Q 


; DONE? 

? YES. 

? NO -- MOVE NAME. 


; OVERLENGTH NAME? 
; O.K. SO FAR. 


97F5 A99B 


: S F 2 5 0 LDA 


AEOL 
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97F 7 

9D2005 

STA 

QPN0 UF t X 

97 FA 

A900 

LD A 

#0 

97FC 

60 

RTS 



1 .OA 
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SET CC FOR NORMAL EXIT. 
RETURN WITH CC SET. 


PILOT 
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97F D PROC 

I 

l •" DEVICE NAME AND SETUP FOR 'READ J ' , 'WRITE: 

i 

} CALLING SEQUENCE: 

? 


OR 'CLOSE: 




• 

9 

Y = 

INPUT LINE INDEX. 




• 

9 

• 

A = 

AUX1 OPEN CODE. CO 

= 

07FD 

85E0 

9 

SCNDEV 

STA 

LEND 

• 

m 

P7FF 

20C297 


JSR 

SFNAME 

¥ 

0 

» 

9602 

D 0 3 4 A 9838 


BNE 

:SC290 

¥ 

• 

9 

98^4 

A592 


LD A 

EXEC 

• 

9 

980t> 

F030 A 9638 


REQ 

: SC290 

7 

9806 

A 9 0 0 


LD A 

u o 


P60A 

85E A 


STA 

IOSTAT 

• 

f 

98 0 C 

65C0 


STA 

Np + 2 


980E 

8oC 1 


STX 

NP + 3 


9810 

A 92 0 


LD A 

A LCW OPNBUF 


°8 1 2 

85BE 


STA 

NP 


96 1 A 

A 9 0 5 


LD A 

n HIGH OPNBUF 


9616 

85BF 


STA 

NP + 1 


9616 

20AD9E 


JSR 

SETS VL 

7 

96 1 B 

A920 


LD A 

aatric 

• 

9 

98 1 D 

6D6605 


STA 

ATRTYP 


9820 

20CE96 


JSR 

SFIND 

• 

9 

9623 

DO 1 A A 9839 


BNE 

: SC30 0 

0 

9 

9825 

A4C A 


LD Y 

CP + 2 

0 

9 

9627 

B1C2 


LD A 

(DP ) , Y 


9629 

A 8 


PHA 



982 A 

A5E0 


LD A 

LEND 


982C 

DO 0 3 A 983 1 


BNE 

SSC270 

7 

962E 

20EC98 


JSR 

SDELET 

0 

9 

9631 

68 

: SC270 

PLA 



9632 

AA 


tax 



9833 

ACA805 


LD Y 

XXXX 


9636 

A 9 0 0 


LD A 

AO 

m 

t 

9636 

60 

: SC29 0 

RTS 


7 



; first 

ACCESS TO DEVICE, DO IMPL3 

9839 

20B798 

: SC300 

JSR 

CHKDEV 

• 

9 

963C 

A 5E 0 


LD A 

LEND 


963E 

DO 06 A 9eA6 


PNE 

: SC 3 1 0 

0 

9 

98 A 0 

ACA805 


LDY 

XXXX 

7 


SAVE DEVICE OPEN CODF. 
EXTRACT FILENAME. 
ERROR. 

EXECUTE MODE? 

NO -- ALL DONE. 


; CLEAR I/O STATUS. 


'I/O' ATTRIBUTE. 

7 SEE IF STRING EXIS:T. 

NO. 


7 YES -- GET IOCB INDEX FROM VALUE. 

7 LOOK AT "OPEN" CODE, 

NORMAL IN OR OUT. 

? 'DONE' -- DELETE NAME. 


7 SET CC FOR NORMAL EXIT. 
; RETURN WITH CC SET. 
LICIT OPEN. 

; CHECK FOR VALID DEVICE. 

CHECK "OPEN" CODE, 
DRMAL IN OR OUT. 

; RESTORE INDEX. 
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9843 

A V 0 2 


L D A 

AIMPFrr 

984b 

60 


RTS 


9846 

2 v 70 96 

: SC3 1 0 

JS R 

FNDIOB 

984 V 

0024 *966F 


BNE 

: 3CV00 

9848 

A5E 0 


LDA 

LEND 

9840 

2 0 F 4 96 


JSR 

DOPEN 

R 8 9 0 

86CE 


STX 

LS 

98*52 

8EF002 


STX 

CRSINH 

98*55 

A9DE 


LDA 

» LOW LS 

9857 

65C2 


STA 

DP 

®859 

4900 


LDA 

n HIGH LS 

985P 

8 5C3 


STA 

OP+1 

985D 

A 90 C 


LDA 

#0 

965F 

85C4 


STA 

DP + 2 

9861 

A 9 0 1 


LDA 

n i 

9863 

85C5 


STA 

OP + 3 

9865 

200599 


JSR 

SINSRT 

9868 

08 


PHP 


9669 

A60E 


LDX 

LS 

986B 

A C 4 8 0 5 


LDV 

XXXX 

986E 

28 


PLP 


986 F 

60 

: SC9O0 

PTS 
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J 'DONE' -- CLOSING NON-OPEN FILE, 


; FIND A FREE IOCb, IF AVAILABLE. 

; NONE AVAILABLE. 

t GET AUX1 OPEN CODE. 

? OPEN DEVICE. 

t SAVE 10CB n ASSOCIATED WITH DEVICE. 
; INHIBIT CURSOR JUST IN CASE. 


} INSERT NAMED STRING CONTAINING INFO. 


; RETURN WITH CC SET. 


9870 PROC 

; 

; FNDIOB -- FIND A FREE IOCB 


CALLING SEQUENCE: 




r 

• 

r 

JSR 

FNDIOB 





• 

f 

» 

BNE 

NO FREE IOCB 

(A s 

ERROR CODE) 



¥ 

. 

/ 

. 

X 

it 

it 

IOCB INDEX. 



9870 

A240 

¥ 

FNDIOB 

LDX 

AI0CB4 

• 

f 

START WITH IOCB #4. 

9872 

BD4003 

: FDO 1 0 

LDA 

ICHID,X 

• 

9 

TEST FOR CURRENTLY UNUSED 

9675 

C 9FF 


CMP 

#$FF 



9877 

FO 07 A 988 0 


BED 

SFD090 

9 

9 

FOUND ONE. 

679 

206C98 


JSR 

NXTIOB 

9 

9 

BUMP INDEX TO NEXT IOCB. 

67C 

DO FU A 9e72 


BNE 

: FDO 1 0 

9 

9 

MORE TO CHECK. 

8 7t 

A 996 


LDA 

PFILERP 

; 

NONE AVAILABLE. 

880 

60 

: FD090 

RTS 


• 

! 

RETURN WITH CC SET. 


PHUT 
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9881 

? 

t CLOSED 

; 

9881 A<£30 CLOSED 

9883 203F97 : CLO 1 0 

988b 2 08C98 

9889 DOFS *9883 

988b 80 


PROC 

— CLOSE I0C83 3 THROUGH 


LDX 

AIOCB3 

; 

JSR 

DCLCSE 

; 

JSR 

NXTIOB 

; 

BNE 

: C L 0 1 0 

; 

RTS 




7 (WHETHER 

OPEN 

OR 

NOT) 

START 

WITH 

IOCB 

83. 


CLOSE 

THE 

IOCB. 



BUMP 

INDEX 

TO NEXT 

I0C8 

MORE 

TO DO 

• 




988C PROC 

; 

; NXTIOB -- BUMP INDEX TO NEXT IOCB. 

; 

7 CALLING SEQUENCE: 

• 

9 

? X r IOCB INDEX 




• 

9 

JSR 

NXTIOB 



? 

• 

PEQ 

INDEX PAST IOCB A7 



9 

? 

• 

X = 

IOCB INDEX TO NEXT IOCB 

98 3 C 

8 A 

NXTIOB 

TX A 


9880 

1 8 


CLC 


98 8 E 

6910 


ADC 

AI0C6SZ 

9890 

AA 


TAX 


9891 

E080 


CPX 

8I0C37+I0CBSZ 

9893 


RDV090 



9893 


CKD09Q 



9893 

60 


PI S 

? RETURN WITH CC SET. 


9894 



OROC 







; remdev -- 

• 

REMOVE DEVICE 

ASSIGNMENTS FROM STRI 

NG LIST 

9894 

A252 

jfiDOOO 

LDX 

AMEM A-DTA8 

• 

9 

REMOVE STRING 

VAR FROM LIST. 

9896 

A 03 A 


LOV 

alp-dtab 




9898 

2 0459A 


JSR 

DMOVI 




9896 

203E98 


JSR 

MDEALL 




989E' 

20AD9E 

REMOEV 

JSR 

setsvl 

• 

9 

SETUP TO SCAN 

STRING VARIABLES ... 

98 A 1 

A23A 


LDX 

ALP-DTAB 

} 

...TO REMOVE 

ALL DEVICE ASSIGNMENTS 

98 A 3 

2U139A 

: hDO l o 

JSR 

SEND 

; 

END OF LIST? 


98 A 6 

F0E8 *9893 


BEQ 

RDV090 

) 

YES. 


96 AS 

A 23 A 


LUX 

alp-dtab 

• 

9 

CHECK ATTRIBUTE. 

98A A 

20669A 


JSR 

sattr 





PILOT 
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98AD 
96 A F 

C920 

F0E3 A 9894 

CMP 

9EQ 

FATRIU 
: R D 0 0 0 

? YES -- 

REMOVE IT 

FROM LIST. 

96 B 1 

20 AA9A 

JSR 

SMXTI 

? GO TO 

NEXT ITEM 

IN LTST. 

96P9 

4CA396 

JMP 

SRD010 





96«7 


PRQC 






? chkdev -- 

CHECK FCR VALID 

DEVICE 


9687 

20889© 

chkdev jsr 

TSTMOD 

? 

CHECK SCREEN MODE. 

98 P A 

C901 

CMP 

FTXSL 

• 

9 

TEXT, SMALL LETTERS? 

98 P C 

F0P5 A 9693 

BEG 

CKD090 

; 

YES -- NO RESTRICTIONS. 

988E 

AD2005 

LOA 

0PN6UF 

• 

9 

CHECK FOR 'E' OR 'S'. 

98C1 

C 94 5 

CMP 

A 'Z # 



98C3 

F 0 0 4 A 96C9 

BEO 

SCK010 

• 

9 

INVALID -- CLOBBERS SCREEN 

93C5 

C953 

CMP 

*'S' 



98C7 

DOCA A 9893 

BNE 

CKD090 



96C9 

A 98 5 

JCK010 LD A 

FSCNEPR 



90C9 

4 C 3 A 7 A 

JMP 

PSTOP 




PILOT -- 
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9 

; this package has three levels of string handling routines: 

9 

; NAMED string HANDLING -- sfind, sdelet & SINSRT 

9 

t text data HANOLING -- SCORP 

9 

> IMPLEMENTATION UTILITIES -- IFIND, SEND, PSETUP, PROVE, ICOMP 

> ILENG , SNXTI, IRATCH * IALLOC 
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R8CE 


N A ^ t D 

STRI 

NG HANDL 

ING 

THFSE 

ROUT 

INES USE 

TH 


NP = 

POINTER 

TO 


DP = 

POINTER 

TO 


LP = 

POINTER 

TO 


PROC 




; 

; SFTND -- FIND NAMED STRING IN LIST 

; 

; CALLING SEQUENCE: 


t 

; 

a 

9 

a 

f 

a 

/ 


LP POINTS TC START OF LIST OF NAMED STRINGS 
NP POINTS TC NAME TO FIND IN LIST 
ATRTYP SET 




a 

9 

JSR 

SFIND 





a 

9 

a 

PNE 

NAME NOT 

IN LIST 

UR NAME IS NULL 



/ 

a 

9 

a 

DP 

POINTS TC DATA 

PORTION 

OF NAMED STRING FOUND IN 

98CE 

205B99 

SFIND 

JSR 

IFIND 

a 

9 

FIND NAME IN LIST. 

9801 

D 0 1 8 A 98EB 


BNE 

: S F 0 8 0 

? 

NOT FOUND. 

98D3 

A 


LDX 

FDP-DTA8 

a 

9 

SET 'DP' TO POINT TO DATA 

9805 

AO HE 


LDY 

#PP«DTA8 



9807 

20459A 


JSR 

DMOVI 



98DA 

A5D1 


LD A 

P P + 3 

a 

9 

SKIP OVER NAME PORTION, 

98DC 

20089D 


JSR 

DADDP 



98DF 

A 9 0 1 


LD A 

# 1 

a 

9 

SET START INDEX, 

98E 1 

85C4 


STA 

DP + 2 



98F3 

A 0 0 0 


LDY 

#0 

a 

SET END INDEX, 

98E5 

18 


ClC 




98E6 

71C2 


ADC 

(DP) , Y 



98F8 

85C5 


STA 

DP + 3 



98E A 

98 


TYA 


• 

9 

SET CC FOR EXIT, 

98E6 

60 

:$F080 

RTS 


a 

9 

RETURN WITH CC SET. 


98EC 


PR OC 


f 

a 

9 

a 

9 

a 

9 


SDELFT -- DELETE NAMED STRING FROM LIST 


CALLING SEQUENCE; 
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NP POINTS TG STRING NAME 

LP POINTS TO START OF LIST OF NAMED STRNGS 




• 

9 

• 

ATRTYP 

SET 




9 

• 

9 

JSR 

SDELET 




; 

• 

BNE 

NAMED STRING NOT 

FOUND OR NAME IS NULL 

P8EC 

2Q5699 

SDELET 

JSR 

IFIND ? 

FIND STRING IN LIST, 

P6EF 

D 0 1 3 A 9904 


BNE 

: SD090 ; 

NAMED STRING NOT FOUND. 



f * * * 

EXTERNAL 

ENTRY POINT *** 


06F1 

A252 

SDEL2 

LDX 

n mema-dtab ; 

MEMA = PP (FOR DEALLOCATE 

09P3 

aoae 


LDY 

APP-DTAB 


98 FB 

20459 A 


JSR 

DMOVI 


9 8 F 8 

203E9B 


JSR 

MDFALL ; 

DELETE STRING. 

96 FB 

A2AE 


LDX 

APP-DTAB ; 

PP s MEMA. 

96FD 

A 052 


LDY 

AMEMA-DTAB 


°6FF 

20459a 


JSR 

DMOVI 


9902 

A 9 0 0 


LDA 

AO ? 

SET CC FOR NORMAL EXIT. 

9904 

60 

: SD090 

RTS 

• 

/ 

RETURN WITH CC SET. 


0905 


f 

* 

9 

; 

9 


PRQC 

SINSRT -- NAMED STRING INSERT 

calling sequence: 

Np POINTS TC STRING NAME 
DP POINTS TC STRING DATA PORTION 
LP POINTS TC START OF NAMED STRING LIST 
ATRTYP SET 

TKNTYPr TKNOFF SET IF NUMBERED STATEMENT, 


JSR 

BNE 


SINSRT 

NAME IS NULL t OR NO ROOM FOR STRING IN LIST 


°905 

205899 

SINSRT JSR 

IFIND 

9906 

0003 A 990D 

BNE 

: S 1 0 2 0 

990A 

20F198 

JSR 

SDEL2 

990D 

A 9 0 0 

:SI020 LDA 

AO 

990 F 

6SD4 

STA 

MEMB 

9911 

8505 

STA 

ME M B+ 1 

9913 

A 254 

LDX 

AMEMB-DTA8 

9915 

38 

SEC 



ATRTYP STORED IF 'VARIABLE' 

TKNTYP, TKNCFF STORED IF NUMBERED STATEMENT. 


? IS NAME ALREADY IN LIST? 
; NO. 


? YES -« DELETE OLD OCCURRENCE. 
? CALCULATE ALLOCATION SIZE. 


? STRING SIZE = NAME SIZE 


• • • 
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9916 

A 5C 1 

LDA 

NP ♦ 3 

9918 

E5C0 

SBC 

NP*2 

991 A 

20089D 

JSR 

DADDP 

99 1 D 

38 

SEC 


991 l 

A5C5 

LD A 

DP + 3 

9920 

E5C A 

SBC 

DP + 2 

90? £ 

20089C 

JSR 

DADDP 

9925 

A 9 C6 

LDA 

Pt 


9927 

200890 

JSR 

DADDP 

«92A 

A 252 

L OX 

AMEMA-DTAB 

992C 

AO AE 

LD Y 

ARP-DTAB 

992E 

20A59A 

JSR 

PMOVI 

9931 

2 0 C 1 9 A 

JSR 

MALLOC 

9939 

DO 1 E A 995A 

8NE 

: S I C90 

993b 

A23E 

LDX 

ANP-nTAB 

9938 

A 0 02 

LD Y 

A2 

99 3 A 

20509A 

JSR 

SMOVI 

993D 

A 242 

LDX 

ADP-DTAB 

99 3 F 

2 0 5 0 9 A 

JSR 

SMOVI 


; ... + DATA PORTION SIZE ... 


... + 6 BYTES OF OVERHEAD. 

2 = BLOCK SIZE; 1 = NAME SIZE, 

1 = DATA SIZE? 2 * 'EXTRA' AT END. 


? ALLOCATE ADDRESS FROM ' I F IND ' CALL IN PP. 


; ALLOCATE SPACE IN LIST. 

? NOT ENOUGH ROOM, 

? MOVE NAME TO NEW STRING ... 

? ... STARTING AFTER ALLOCATION SIZE, 


; NOW MOVE DATA PORTION. 


? 'MEMA' = ADDRESS OF 'ATTRIBUTE' DESTINATION. 
; Y = 0. 


99^2 

A D6 6 0 5 


LDA 

ATRTYP 



9995 

0009 A 995 0 


BNE 

JSI060 

; 

'VARIABLE' ATTRIBUTE. 

99 *7 

AL6805 


LDA 

TKNTYP 

• 

9 

TOKENIZE LINE. 

999 A 

9102 


STA 

(MENA), Y 



994C 

C 6 


INY 




999 0 

AD6A05 


LDA 

TKNOFF 

• 

9 

OFFSET. 

9950 

91D2 

! S 1 06 0 

STA 

(MENA) , Y 



9952 

A 9 0 0 


LDA 

AO 

• 

9 

SET CC FOR NORMAL EXIT. 

9959 

60 

SSI090 

RTS 


• 

9 

RETURN WITH CC SET. 


PILOT 
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; TEXT DATA UTILITIES 

; 

; THESE ROUTINES USE THE FOLLOWING VARIABLES: 

'* DP = POINTER TO TEXT DATA 

HP = POINTER TO TEXT PATTERN DATA 
API = AUXILIARY POINTER TO TEXT SUB-STRING 
'* AP2 = AUX ILL I ARY POINTER TO TEXT SUB-STRING 


9955 


9955 202D9A 

9958 4CA999 


9 

9 

9 

; 

9 


PROG 

SCOPP -- COMPARE TWO TEXT STRINGS 
CALLING SEQUENCE: 


9 

9 

9 


9 


9 


? NOTE: 


9 

9 

9 


SCOMP 


DP POINTS TO DATA TEXT 
HP POINTS TC DATA TEXT 


JSR SCOMP 

BEQ DATA TEXTS ARE IDENTICAL 

BCS DP TEXT >= MP TEXT 

BCC DP TEXT < MP TEXT 


THE COMPARISON IS BASED UPON THE STANDARD ATASCII COLLATION 
SEQUENCE? WHEN ONE TEXT IS A SUBSET OF THE FIRST PART OF THE 
OTHER TEXT, THE SHORTER ONE IS CONSIDERED TO BE < THE LONGER ONE. 


JSR PSETUP 

JMP ICOHP 


? DP TO SP, MP TO PP. 

? COMPARE TEXT & RETURN WITH CC SET. 


PILOT -- 
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I GENERAL STRING 1 VP L EM E N T A T I ON UTILITIES 


; THESE ROUTINES USE THE FOLLOWING VARIABLES* 


; 

; 

i 


SP = SOURCE TEXT POINTER 
PP = PATTERN TEXT POINTER 




PROC 


; IFIND -- FIND NAMED STRING IN LIST 
? 

; calling seguence; 

t 

; 


NP POINTS TO OESIRED NAME 

LP POINTS TC START OF NAMED STRING LIST 

ATRTYP ATTRIBUTE 


t 

; 

; 

; 

; 


JSR 

BNE 


IFIND 

NOT FOUND (PP POINTS TO SUCCESSOR) 


PP POINTS TO NAMED STRING IN LIST 
IF NOT FOUND * THE SUCCESSOR IS CHOSEN SO THAT: 
STATEMENTS ARE KEPT IN LINE # ORDER. 




; VARIABLES ARE APPENDED 

• 

TO 

THE END OF T 

995a 

ASCO 

r 

IFIND LD A 

NP + 2 

7 

NAME NULL? 

9950 

C5C 1 

CMP 

NP + 3 



995F 

F 0 A 5 A 99A6 

BEG) 

: I F 0 9 0 

♦ 

9 

YES •• DONE. 

9961 

A 2 A A 

LDX 

PSP-DTAB 

• 

r 

SP s NP. 

9963 

A03E 

LD Y 

PNP-DTAB 



9965 

20369A 

JSR 

PMOVE 



9966 

A24E 

LDX 

#PP-DTAB 

• 

i 

PP = LP. 

996 A 

A 0 3 A 

LD Y 

9LP-DTAB 



996C 

20389A 

JSR 

PMQVE 




996F 


: I F020 






996F 

A24£ 

LDX 

*PP-DTAB 





9971 

2 0 1 39 A 

JSR 

SEND 

• 

9 

END 

OF LIST? 


9974 

F030 A 99A6 

BEQ 

: IF080 

• 

9 

YES 

-- DONE. 


9976 

A903 

LD A 

*3 

• 

9 

NO - 

- SETUP START 

INDEX . 

9976 

85D0 

STA 

PPt2 





997A 

18 

CLC 


• 

9 

• It 

& END INDEX (TO NAME) 

9979 

A 0 0 2 

LDY 

*2 





9970 

7 1 C£ 

ADC 

(PP) f Y 





997 F 

8501 

STA 

PP + 3 





9961 

2 0 A 9 9 9 

JSR 

ICOMP 

• 

9 

NAME 

COMPARISON. 


9964 

F 0 0 9 A 998F 

8E« 

: IF030 

• 

/ 

A MATCH. 


9966 

6016 A 999E 

PCS 

: IF040 

• 

9 

NOT 

THERE YET (IF 

LINE). 
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• 

9 

NOT A MATCH (IF VARIABLE). 

9983 

AD6b05 


LDA 

ATRTYP 

t 

LINE INSERTION? 

99*3 

DO 1 1 A 999E 


BNE 

: I F 0 4 0 

) 

NO -- SEARCH TO FND. 

99 3 D 

9017 A 9946 


BCC 

: I F 0 8 0 

t 

YES -- PAST CORRECT SPOT (BRA). 



? CHECK 

IF 

ATTRIBUTE MATCHES. 



99 8 F 

406&05 

! IF030 

LDA 

ATRTYP 

; 

ATTRIBUTE TO MATCH. 

999 1 

F 0 1 4 A 99 48 


REQ 

: IF090 

} 

'LINE' -- FOUND ITi 

9999 

A24E 


LDX 

APP-DTAB 

; 

CHECK ATTRIBUTE. 

999 to 

20869 A 


JSR 

SATTR 



9999 

CD6605 


CMP 

ATRTYP 



999C 

F 0 0 A A 99 A 8 


BEQ 

: I F090 

? 

ATTRIBUTE MATCHED! 

999 £ 

A34E 

: I F 04 0 

LDX 

APP-DTAB 

? 

SKIP TO NEXT LIST ENTRY. 

0940 

20AMQA 


JSR 

SNXTI 



9943 

4C6F99 


JMP 

S IF020 

• 

9 

TRY AGAIN. 

9946 

A 9F F 

: IF080 

LDA 

A $ F F 

• 

9 

SET CC FOR EXIT (NOT FOUND). 

9940 

60 

: IF090 

RTS 


J 

RETURN WITH CC SET. 


99 A 9 


99 A 9 
99 AC 


9990 
9992 
9999 
9995 
998 7 
9989 
998 A 
998C 

99 BE 
99C 1 
99C2 


201F9A 
F03C A 99E A 


99 A E 8010 A 99CD 


A501 
85 A 7 
38 

A5C0 

E5CC 

18 

6500 

8501 

20EA99 

08 

A5 A 7 


; 

a 

f 

? 


# 

f 

9 

9 

; 


PRQC 

ICOMP -- COMPARE TEXT DATA 

CALLING SEQUENCE: 

SP POINTS TO DATA TEXT 
PR POINTS TO DATA TEXT 


ICOMP 


JSR 
BEQ 
SC s 
8CC 

JSR 

BEQ 

BCS 

LD A 
ST A 
SEC 
LD A 
SBC 
CLC 
ADC 
STA 

JSR 
Ph p 
LD A 


ICOMP 

DATA TEXTS ARE IDENTICAL 
SP DATA >= PP DATA 
SP DATA < PP DATA 


ILENG 

IMATCH 

! IC050 

PP + 3 
TEMP2 

SP + 3 
SP + 2 

PP + 2 
FP + 3 

I iv A T C H 

TEMP2 


? SEE IF EQUAL LENGTHS. 

? YES -- COMPARE & RETURN, 

? PP DATA SHORTER THAN SP DATA, 

; SAVE STARTING VALUE, 

; (CLEAR BORROW), 

? ADJUST PP DATA LENGTH FOP COMPARISON, 


? NOW COMPARE. 

? RESTORE ALTERED PARAMETER 


PILOT 
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99C4 

8501 

STA 

PP + 3 



99C6 

26 

plp 




99C7 

0020 A 99E9 

0NE 

s IC090 

; 

NOT EQUAL -- CC SET FOP EXIT. 

99C 9 

A9FF 

L D A 

A f F F 

• 

9 

SET CC FOR EXIT. 

99C6 

18 

CL C 




99 CC 

60 

RTS 


; 

RETURN WITH CC SET. 

99C0 

A5C0 

: IC050 LD A 

SP + 3 

• 

9 

SAVE STARTING VALUE. 

99CR 

85 A 7 

STA 

T E wp 2 



99 D 1 

1 6 

CL C 




9902 

A5CC 

LD A 

SP + 2 

) 

ADJUST SP LENGTH FOR COMPARISON 

9904 

65D 1 

ADC 

PP + 3 



9906 

36 

SEC 




990 7 

E50 0 

SBC 

PP + 2 



99D9 

S5CD 

STA 

SP + 3 



99DB 

20EA99 

J SR 

IMATCH 

m 

9 

NOW COMPARE. 

99DE 

08 

PHP 




990F 

A5A7 

LD A 

TEWF2 

f 

restore altered parameter. 

99E1 

8 5CD 

STA 

SP + 3 



99E3 

28 

PLP 




99E4 

0003 A 99E9 

BNE 

: IC090 

• 

9 

NOT EQUAL -- CC SET FOR EXIT. 

99E6 

A9FF 

LD A 

#$FF 

• 

9 

SET CC FOR EXIT. 

99E8 

36 

SEC 




99E9 

60 

: I C 090 RTS 


• 

9 

RETURN WITH CC SET. 


09EA 


PROC 

IMATCH -- WATCH TWO TEXT DATA STRINGS 

calling seguence: 




; 

SP = 

SOURCE DATA TEXT (SOURCE DATA MUST BE LONGER 



; 

• 

PR 5 

PATTERN OATA TEXT 





9 

; 

JSR 

IMATCH 






• 

9 

BEQ 

PATTERN 

IS CONTAINED WITHIN SOURCE 



• 

9 

BCS 

SOURCE 

COLLATES 

> 

= PATTERN 



9 

9 

BCC 

SOURCE 

COLLATES 

< 

PATTERN 

99E A 

ASCC 

9 

r 

IMATCH 

LD A 

SP + 2 


• 

9 

SAVE STARTING INDICES, 

99EC 

85 A I 


STA 

TEMP 




99 EE 

A500 


LD A 

PP + 2 




99 FO 

85A2 


STA 

TEMR+1 




99 p 2 

A40O 

8 1 MO 1 0 

LOT 

PP + 2 


9 

9 

SEE IF ALL OF PATTERN 

99 p 4 

C9D1 


CP Y 

PP + 3 




99 F 6 

F010 A 9 A 08 


BEQ 

: IM090 


9 

9 

YES -- ALL DONE. 

99F8 

A4CC 


LD Y 

SP + 2 


9 

9 

NO -- COMPARE ANOTHER 

99 F A 

8 1 C A 


LD A 

(SP) , Y 




99PC 

E6CC 


INC 

SP + 2 
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99FE 

A400 

LD Y 

PP + 2 



9 AO 0 

DICE 

CMP 

(PP) ,Y 



9A02 

DO 04 A 9A 08 

BNE 

: IM090 

; 

NO COMPARE -- CC SET FOR EXIT. 

9 A 0 4 

EbDO 

INC 

PP + 2 



9AOb 

BOEA A 99F2 

BCS 

: IM010 

• 

9 

(BRA), 

9A08 

08 SIM090 

PHP 


• 

9 

SAVE CC. 

9A09 

ABA 1 

LD A 

TEMP 

9 

9 

RESTORE STARTING INDICES. 

9 A 0 B 

65CC 

STA 

SP + 2 



9 A 0 0 

A5A2 

LD A 

temp+i 



9 A 0 F 

85D 0 

STA 

P P + 2 



9 A 1 1 

28 

PLP 


• 

f 

RESTORE CC. 

9A12 

SEN090 





9 412 

60 

RTS 


; 

RETURN WITH CC SET. 

9 A 1 3 

• 

PRQC 





? SEND 

-- CHECK 

FOR END OF 

STRING 

LIST 


CALLING SEQUENCES 

X = DTA8 OFFSET TO LIST POINTER 




• 

9 

JSR 

SEND 






• 

9 

9 

BEQ 

END OF LIST 

REACHED 




9 

9 

9 

9 

Y IS 

ALTERED 




9 A 1 3 

A 0 3 0 

9 

SEND 

LD Y 

3S1H-DTAB 

• 

9 

SEE IF END OF REGION 

#1. 

9 A 1 5 

20159C 


JSR 

DCMPI 




9At 8 

F 0 F 8 A 9 A 1 2 


BEQ 

SEN090 

• 

9 

YES. 


9 A 1 A 

A 0 3 4 


LD Y 

#S?H-DTAB 

• 

9 

SEE IF END OF REGION 

#? ... 

9 A 1 C 

4C159C 


JMP 

DCMPI 

9 

9 

... & RETURN WITH CC 

SET, 

9 A 1 F 


• 

PROC 







? ILENG 

-- COMPARE LENGTHS 

OF SOURCE TEXT AND PATTERN 

TEXT 


CALLING SEQUENCE: 


SP POINTS TO SOURCE DATA TEXT 
PP POINTS TO PATTERN DATA TEXT 


9 A 1 F 

9A21 


A5D1 

38 


IlENG 


JSR 

BEQ 

BCS 

BCC 

LD A 

SEC 


ILENG 

DATA TEXTS ARE EQUAL LENGTH 
SOURCE TEXT >= PATTERN TEXT 
SOURCE TEXT < PATTERN TEXT 

PP + 3 
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9A?2 

E5P0 

SbC 

PP + 2 


9a?*4 

A 5 A l 

STA 

TEMP 


9 A?6 

A5CD 

L D A 

SP + 3 


°A2« 

EbCC 

SBC 

SP + 2 


9 A ? A 

E5f 1 

StiC 

TEMP 

; CC a SP LENGTH 

9 A PC 

60 

RTS 



9A2U 


PROC 





; PSETUP -- foOVE 

POINTERS 

(DP TO SP, foP TO PP) 


9 A2D A2A A 
9A2F A0A2 
9A31 203B9A 


9a34 A2AE 
9 A 36 A 0 46 
9 A 38 AC369A 


9A3B 


; CALLING SEQUENCE : 


JSR 


PSETUP 


9 

9 

9 


SP = DP 
PP = foP 


PSETUP 


LDX 

LDY 

JSR 


ASP-DTAB 

ADP-DTAB 

PfoOVE 


; SP = DP. 


LDX 

LDY 

JfoP 


APP-DTAB 

AfoP-DTAB 

PfoOVE 


; PP = MR. 

? AND RETURN. 


PROC 

PfoOVE -- MOVE STRING/DATA TEXT POINTERS 
CALLING SEQUENCE: 


X = DTAB OFFSET 
Y = DTAB OFFSET 





a 

9 

0 

JSR 

PfoOVE 

• 



9 

• 

9 

0 

DTA8CX) 

= DTAB(Y) ( 4 BYTE 


9a3B 

B9820 0 

9 

PfoOVE 

LDA 

DT A8+2 , Y 

% 

9 A 3£ 

9582 


STA 

DTAR+2,X 


9A40 

B 9 8 3 0 0 


LDA 

DTAB + 3 e Y 

* 

9A43 

9583 


STA 

DTA8+3,X 




; ★** 

external 

ENTRY POINT *** 


9A45 

B98000 

DfoOVI 

LDA 

DTAB, Y 


9 A4 6 

9580 


STA 

DTA6,X 

B 

9 A 4 A 

P981 00 


LDA 

DTAB+1, Y 



i _ 


n A 


q ^ ^ i u n 


PP LENGTH. 


PILOT 
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9A4D 

95P1 

STA 

DTAB + 1 , X 

RaAF 

60 

RTS 



= 0000 IF FALSE 

PROC 

J I ALLOC -- ALLOCATE MEMORY 

9 

? CALLING SEQUENCE! 

9 

? A = A OF BYTES TO ALLOCATE 

' 

} JSR I ALLOC 

; BNE NOT ENGUGH ROOM 

. 

; DP POINTS TC NEW ALLOCATION + 2 (START OF STRING) 


m 

9 

IALLCC STA 

N EM B 

• 

9 

SETUP MEMB = A BYTES ... 

- 

LDA 

AO 



- 

STA 

MEM0+1 

\ 



m 

LOA 

ni 

} 

• • • + 3 • 

m 

LDX 

«MENP-DTA8 


- 

JSR 

DADDS 



m 

LDX 

AMEMA-DTAB 

• 

9 

SETUP MEMA = ALLOCATION ADDRESS, 

- 

ldy 

AS2L-DTA8 



- 

JSR 

DMOVI 



m 

JSR 

MALLOC 

} 

ALLOCATE MEMORY. 

m 

BNE 

; IA090 

t 

NOT ENOUGH ROOM. 

m 

LDX 

ADP-DTAB 

• 

9 

DP = ADDRESS OF STRING STORAGE AREA 

m 

LDY 

AMEN A-DTAB 



- 

JSR 

DMOVI 



. 

LDA 

A 2 



- 

JSR 

DADDS 



m 

LDA 

A l 

• 

9 

SET STARTING & ENDING INDICES. 

m 

STA 

DP + 2 



m 

STA 

DP + 3 



- 

LDA 

AO 

• 

9 

SET CC FOR EXIT. 

m 

1 1 A 090 RTS 


; 

RETURN WITH CC SET. 


ENDIF 





9AB 



0 


PROC 

; 

; SMOVI -- MOVE TEXT DATA TO MEMA (FORMING STRING) 

; 

l CALLING SEQUENCE; 



PILOT 
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; 

X = 

DTAB INDEX TO STRING 

POINTER 



; 

• 

Y = 

MEMA OFFSET TO START 

STORING 



9 

t 

• 

JSR 

SMOVI 





9 

; 

VENA 

= LAST LOCATION 

STORED INTO ♦ 1 



• 

9 

• 

Y s 

0 



9 AS 0 

8580 

SMOVI 

LQA 

DTAB , X 

• 

9 

MOVE SOURCE POINTER TO TFMP 

9 A 52 

8 5 A 1 


STA 

T£MP 



9A54 

8581 


LOA 

DTA6+1/X 



9A56 

65A2 


STA 

TEMP+1 



9A58 

B582 


LDA 

DTAB+2, X 



9A5 A 

85A3 


STA 

TEMP+2 



9A5C 

8583 


LDA 

DTAB + 3# X 



9 a5E 

85A4 


STA 

TEVP+3 



9a60 

38 


SEC 


; 

CALCULATE STRING LENGTH ... 

9A61 

A5A4 


LDA 

TEMF+3 



9A63 

E5A3 


SBC 

TEMP +2 



9A65 

9102 

:SM010 

STA 

( MEM A ) , Y 

• 

9 

... & STORE IN TARGET AREA. 

9A67 

C8 


INY 




9A6S 

84A5 


STY 

TEMP + 4 

• 

9 

SAVE INDEX. 

9A6A 

A 4 A 3 


LDY 

TEMP + 2 

• 

9 

DONE? 

9 A6C 

C4A4 


CPY 

TEMF+3 



9A6E 

F 0 06 A 9 A 76 


BEQ 

! SM090 

• 

9 

YES. 

9 A 7 0 

81 A 1 


LDA 

(TEMP) , Y 

• 

9 

NO -- MOVE A BYTE. 

9 A 72 

Efe A 3 


INC 

TEMP + 2 



9 A 7 4 

A 4 A 5 


LDY 

TEMP+4 

i 

GET TARGET INDEX. 

9 A 76 

PQED A 9A 65 


BNE 

: SMO 1 0 

; 

(BRA). 

9 A 78 

A 9 0 0 

:SM090 

LDA 

#0 

? 

PREPARE FOR D.P. ADDITION. 

9 A 7 A 

8t>A6 


STA 

TEMp+5 



9A7C 

4252 


LDX 

amema-dtab 

? 

PREPARE TO BUMP MENA. 

9A7E 

A 025 


LDY 

ATEMP+4-DTAB 



9 4 8 0 

20329C 


JSR 

DADDI 



9A8i 

A 0 0 0 


LDY 

#0 

• 

9 

AS PROMISED. 

9 A 8 5 

60 


RTS 





9 ABo 


9 

9 

f 

9 

f 

9 

9 

9 

9 

; 


PROC 

SATTR -- POINT TO ATTRIBUTE BYTE 

calling sequence: 

X = DATA OFFSET TO STRING POINTER 

J3R SATTR 

A = ATTRIBUTE VALUE 


A T A A T f A M A f. icQpmhl pr Ver 1-0 A P a a e 162 


PIUJT 


9A*6 
9A98 
9 A8 A 
9A8C 

9A8E 
9A9 0 
9A91 
9A93 

9A94 
9A95 
9 A 9 7 
9A99 

9A9B 
9 A9C 
9A9D 
9 A 9 F 
9 A A 1 
9 A A 3 

9AA5 
9AA7 
9 A A 9 


9 A A A 


9AAA 
9 A AC 
9 A A E 
9 A R 0 

9 A82 
9 AR 4 
9 A R 5 
9AR7 

9AR9 
9APA 
9 A R C 
9 ABE 


ATARI C A M A C Assembler Ver 1 . 0 A Page 162 
H.B. STEWART DlsPILOT. 


TEMP = ADDRESS OF ATTRIBUTE BYTE 
Y =0 


8581 

SATTR LD A 

DTAB+lrX 

? MOVE POINTER TO TEMP. 

8 5A2 

ST A 

TEMF+1 


B580 

LD A 

DTAB, X 


65 A 1 

STA 

T E^F 


A 0 0 0 

LD Y 

80 

; ADDRESS ... 

16 

CLC 


? ...+ LENGTH. 

7 1 A 1 

ADC 

( TEN P ) , Y 


48 

PHA 


9 LS8 

C 6 

INY 



A5A2 

LD A 

TEMP+1 


7 1 A 1 

ADC 

( TEN P ) r Y 


85A2 

STA 

TEMR+1 

; MSB 

66 

PLA 



38 

SEC 


• 

• 

• 

1 

ru 

• 

E902 

SBC 

82 


8 5 A 1 

STA 

TEMP 


8002 A 9AA5 

8CS 

: 3 AO 1 0 


Co A 2 

DEC 

TEMP+1 

9 (BORROW). 

A 0 0 0 

:SA010 LDY 

80 


B 1 A 1 

LD A 

( TEN P ) # Y 

? AS ADVERTISED. 

60 

RTS 




• 

PROC 




? SNXTI 

• 

-- POINT 

TO NEXT STRING IN 

LIST 

? CALLING SEQUENCE: 

a 



r 

• 

t 

X = data 

OFFSET TO 

STRING 

LIST POINTER 

9 

• 

r 

J SR 

SNXTI 



9 

9 

DTABCX) 

= POINTER 

TO NEXT 

STRING IN LIST 

• 

B58 1 SNXTI 

LD A 

DTA8+1 ,X 

• 

r 

MOVE STRING POINTER TO TEMP. 

85 A 2 

STA 

TEMR+1 



8590 

LDA 

DTAB,X 



8 5 A 1 

STA 

TEMP 



A000 

LDY 

80 

9 

f 

ADD ADDRESS TO ... 

19 

7 1 A 1 

CLC 

ADC 

(TENP)fY 

• 

f 

... ALLOCATION LENGTH ... 

9580 

STA 

DT A8 » X 

m 

f 

... TO GET NEXT ADDRESS. 

C 6 

INY 




AS A 2 

LDA 

TEMP + 1 



7 1 A 1 

ADC 

(TEMP ) t Y 



9561 

STA 

DTAe + 1 f X 
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; MEMORY MANAGEMENT PACKAGE 


9 

) 

9 

9 

i 

9 

9 

? 

f 

9 

? 

• 

9 

m 

9 


AVAILABLE MEMORY IS DIVIDED INTO TWO REGIONS WHICH GROW TOWARD EACH 
OTHER; THE REGIONS ARE DEFINED BY FOUR POINTER VARIABLES: 

'S1L' POINTS TO BOTTOM OF REGION #1 

'S1H' POINTS TO FIRST UNUSED LOCATION ABOVE REGION #1 
' S2L ' POINTS TO BOTTOM OF REGION A2 

'S2H' POINTS TO FIRST UNUSED LOCATION ABOVE REGION #2 

THREE ROUTINES ARE PPOVIDED TO ALLOCATE AND DEALLOCATE MEMORY: 

'MALLOC * IS USED TO ALLOCATE MEMORY 
'MDEALL' IS USED TO DEALLOCATE MEMORY 


! THE TWO REGIONS ARE MAINTAINED AS TWO COMPRESSED STACKS; ALLOCATION 
; AND DEALLOCATION INVOLVES THE MOVEMENT OF DATA TO CREATE AND 
? ELIMINATE HOLES IN THE STACKS. 


9 AC 1 


PNCC 


; MALLOC -- MEMORY ALLOCATE 
; CALLING SEQUENCE: 



MEMA' CONTAINS THE 
REGION A l: DATA 
REGION Ull DATA 
MEM8' CONTAINS THE 


ADDRESS OF THE START OF ALLOCATION 
AT START ADDRESS AND ABOVE ARE MOVED UP. 
BELOW START ADDRESS ARE MOVED DOWN. 
NUMBER OF BYTES TO ALLOCATE 


JSR MALLOC 

BNE NOT ENOUGH MEMORY TO SATISFY ALLOCATION 

'MEMA' CONTAINS LOWEST ADDRESS IN THE ALLOCATED BLOCK 
FIRST TWO BYTES OF ALLOCATED BLOCK = BLOCK SIZE 


9 AC 1 
9AC3 

A 0 3 0 
20A29D 

MALLOC LDY 
JSR 

AS 1 H-DTA8 
DLOADA 

9 AC6 
9aC6 

A054 

20AC9D 

LDY 

JSR 

amemb-dtab 

DADDA 

9 ACB 
9 ACD 
9 ADO 

A 032 
20B69D 
B069 A 9B30 

LDY 

JSR 

BCS 

AS2L-DTAB 
DCMFA 
S MA300 

9A02 
9AD4 
9 aD6 
9A09 

A252 
A 0 32 
20159C 
B026 A 9B03 

LUX 

LDY 

JSR 

BCS 

amema-dtab 

A32L-CTAB 
DCMPI 
: M A 1 0 0 



; ALLOCATE FROM 

REGION A 1 


; ACC = S 1 H ... 

; ... + nemb. 

; COMPARE ACC WITH S2L. 

; NOT ENOUGH ROOM. 

; SEE IF ALLOCATION IN REGION #1 OR #2. 
; REGION M2. 


PILOT 


“ - H • b . 


ATAhI C A M a f Assembler Ver 
STEwART 


1 ,0A 


°ADB *256 

LDX 

#MSP-DTAB 

» ° ADD A 052 

LD Y 

#mema-dtab 

9 ADF 2 0 A 59 A 

JSR 

D M 0 V I 

► 9AE2 A 258 

LDX 

4MDP-DT AB 

9AEA 20A59A 

JSR 

DMOVI 

► 9AE7 A 0 5 A 

LD Y 

dMEMB-DT AB 

9aE9 20329C 

JSR 

DADD I 

9AEC A25A 

LDX 

#MBC-DT AB 

9AEE A 0 3 0 

LD Y 

4S1H-DTAB 

9aFQ 2 0 A 5 9 A 

JSR 

DNOVI 

9 A F 3 A 052 

LD Y 

4MEMA-DTAB 

9AF5 20A29C 

JSR 

DSUBI 

9AF8 A230 

LDX 

4S1H-DTAB 

9*fa P0A79D 

JSR 

DSTORA 

9m FD 20CA9B 

JSR 

MOVDA 

9B00 AC2E96 

JMP 

* M A 2 0 0 


? allocate IN 

REGION *2 

9B03 A 25 6 

! M A 1 0 0 LDX 

AMSP-DTA8 

9B05 A 032 

LD Y 

4S2L-CTAB 

9807 20A59A 

JSR 

DMOVI 

9B0 A A25A 

LDX 

#M6C"DT AB 

980C A 052 

LD Y 

^mema-dtab 

9H0E 20A59A 

JSR 

DMOVI 

9811 A 0 32 

LD Y 

PS2L-DTAB 

9B13 20A29C 

JSP 

DSUBI 

9B16 4232 

LDX 

4S2L-DTA8 

9616 A 054 

LD Y 

4MEMB-CTAB 

961A 2Q429C 

JSR 

DSUBI 

9B1D A256 

LDX 

4MCP-DTAB 

98 1 F A 032 

LD Y 

PS2L-DTAB 

9621 20459A 

JSR 

DMOVI 

9B2A A252 

LDX 

#MEM A-DTAB 

9B26 A 054 

LDY 

#MEM8-DTAB 

9628 20429C 

JSR 

DSUBI 

9696 20A69B 

JSR 

MO VI A 


? COMMON CODE 


9B2E A 0 0 0 

} M A 2 0 0 LDY 

#0 

9630 A5D4 

LD A 

MEMB 

9632 9102 

STA 

(MEMA) , Y 

9634 C8 

INY 
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01 JPILOT, 

? MSP s MENU. 

; MDP = MEM A ... 

? ... + MEMB. 

; MBC = S1H ... 

; ... - MEMA. 

7 S1H = ACC C = S1H + MEMB). 

} MOVE DATA UPWARD. 

; MSP = S2L. 

? MBC = MEMA ... 

; ... - S2L. 

; S2L = S2L - MEMB. 

; MDP = S2L (NEW VALUE). 

; MEMA = MEMA - MEMB. 

; MOVE DATA DOWNWARD. 

? MOVE BLOCK SIZE TO BLOCK, 


Pape 166 
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D1 sPILOT. 

9835 

A5D5 

LDA 

MEMB+1 


9P37 

9 1 D2 

STA 

(MEMA) , Y 


9839 

88 

DEY 


? SET CC FOR NORMAL EXIT, 

963a 

60 

RTS 



9B38 

4989 SMA300 

LDA 

4 INSERR 

} SET CC FOR ERROR EXIT. 

9R3D 

60 

RTS 




9U3E PROC 

? 

J MDEALL -- MEMORY DEALLOCATE 

; CALLING SEQUENCE: 

• 

; 'MEMA' = ADDRESS OF BLOCK TO DEALLOCATE 

? FIRST 2 BYTES OF BLOCK = SIZE OF BLOCK 

• 

? JSR MDEALL 

; 'MEMA' = ADDRESS OF BLOCK FOLLOWING DEALLOCATED BLOCK (AFTER DEALL) 


963E 

A 0 0 0 

MDEALL LDY 

4 0 

• 

9 

GET SIZE OF BLOCK TO MEMB. 

9BA0 

B1D2 

LDA 

(MEMA ) t Y 



9B42 

8504 

STA 

MEMB 



9644 

C8 

INY 




9645 

B1D2 

LDA 

(MENA) , Y 



9647 

85D5 

STA 

MEMB+1 



9649 

A252 

LDX 

4MEMA-DTAB 

• 

9 

SEE IF IN REGION 41 OR 42. 

96^8 

A032 

LDY 

4S2L-DTAB 



964Q 

20159C 

JSR 

DCMPI 



9B5 0 

B 029 A 9B7B 

8CS 

:MD100 

• 

9 

REGION 42. 



; DEALLOCATE 

FROM REGION 41. 



9652 

A256 

LDX 

4MSP-DTAB 

• 

9 

MSP = MEMA ... 

9654 

A 052 

LDY 

4MEMA-DTAB 



9b56 

20459 A 

JSR 

DMOVI 



9659 

A054 

LDY 

4MEMB-DTAB 

• 

9 

... + MEMB. 

9656 

20329C 

JSR 

DADDI 



985E 

A25A 

LDX 

4MBC-DTAB 

i 

MBC = S1H ... 

9660 

A 0 30 

LDY 

4S1H-CTAB 



9662 

2 0 4 59 A 

JSR 

DMOVI 



9865 

A 0 56 

LDY 

4MSP-DTAB 

• 

9 

... - MSP. 

9667 

20429C 

JSR 

DSUBI 



9 66 A 

A230 

LDX 

4SIH-DTAB 

• 

9 

S 1 H = S1H - MEMB. 

9B6C 

A 054 

LDY 

4MENB-DTAB 



936E 

20429C 

JSR 

DSUBI 



9671 

A258 

LDX 

4MDP-DTAB 

9 

9 

MDP = MEMA, 


ATARI CA^AC Assembler Ver l.OA 
PILOT -- H . b , STEMRT 


RP 7 3 
9b75 

A 052 
20459a 

LD Y 
JSR 

AMENA-DTAd 
DNO V I 

<5B7a 

L A 6 9 8 

JMP 

NQVIA 


Page 167 

D1 : PILOT. 


} MOVE DATA DOWNWARD & RETURN. 


; DEALLOCATE MEMORY TN REGION #2 


9b7B 

A256 

: M D 1 0 0 LUX 

AMSP-DT AB 

; 

MSP 

= S2L . 

9d70 

A 0 32 

LDY 

AS2L-DTAB 




987F 

2 0 4 59 A 

JSR 

DMOVI 




9b«? 

A25A 

LDX 

AMBC-DTAB 

• 

9 

MBC 

= MEMA ... 

9084 

A 0 52 

LD Y 

AMEN A-DTAB 




908b 

20459A 

JSR 

DMOVI 




9B89 

A 0 32 

LDY 

AS2L-DTAB 

• 

9 

• • • 

- S2L . 

9B56 

20429c 

JSR 

DSU8I 




9B8E 

A232 

LDX 

AS2L-DTAB 

• 

9 

S2L 

s S2L + MEMB, 

9690 

A 054 

LDY 

AMENB-DTAB 




9092 

20329C 

JSR 

D ADD I 




9095 

A 258 

LDX 

AMPP-DTAB 

• 

MpP 

= S2L (NEW VALUE), 

9697 

A 0 32 

LDY 

A52L-DTAB 




9b9Q 

20459A 

JSR 

DMOVI 




969C 

A252 

LDX 

AMEN A-DTA8 

e 

9 

mema 

s MEMA + MEMB. 

909 £ 

A 054 

LDY 

AMEMB-DTAB 




90 A 0 

20329C 

JSR 

DADDI 




98 A3 

4CCA96 

JMP 

MOVDA 

• 

9 

MOVE 

DATA UPWARD & RETURN 


PILOT 
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MOVE UTILITIES FOR MEMORY MANAGEMENT 

m °ve BLOCKS OF DATA WITH EITHER INCREASING OR DECREASING ADDRESS 
\ THREE VARIABLES CONTROL THE MOVE ROUTINES? 

''VSP' CONTAINS POINTER TO SOURCE DATA LOCATION 
'MDP' CONTAINS POINTER TO DESTINATION DATA LOCATION 
'MRC # CONTAINS THE NUMBER OF BYTES TO MOVE 


9BA6 



PROC 




MOVIA 

-- MOVE 

DATA 8L0C 



CALLI 

NG SEQUENCE! 




'MSP', 

# MDP ' & 'M 




JSR 

MOVIA 

98 A 6 

A5DA N 

10 V I A 

LDA 

M BC 

98*8 

AA 


tax 


9dA 9 

05DB 


ORA 

M6C+1 

90 A 6 

F01C A 9BC 9 


BEG 

! M I 0 9 0 

90 A D 

A 0 0 0 


LDY 

00 

9d A F 

BIDS : 

M I 0 1 0 

LDA 

CMSF) , Y 

9381 

91D8 


ST A 

(MDP) , Y 

96*3 

C8 


INY 


9BBa 

D004 A 9BB A 


bne 

! M 1 0 2 0 

9B86 

E6D7 


INC 

M S 0 + 1 

9B38 

EbD9 


INC 

MDP+1 

968 A 

CA : 

M I 020 

DEX 


98BB 

DO 09 A 9BC 1 


BNE 

• M I 030 

968D 

A5D8 


LOA 

M6C + 1 

96BF 

F008 A 9BC9 


8EQ 

! M I 0 9 0 

98C 1 

EOFF JMI030 

CPX 

0 $ F P 

9aC3 

DOEA A 9B A F 


BNE 

8 MI 0 1 0 

96C5 

C6DB 


DEC 

M3C + 1 

9BC 7 

S0E6 A 9BAF 


BCS 

8 M 1 0 1 0 

98C9 

60 ! M I 09 0 

RTS 


980 A 

• 


PROC 



• 

MOVDA 

-- MOVE 

DATA BLOCK 


; SEE IF BYTE COUNT = ZERO, 
f SAVE LSB OF BYTE COUNT, 

? ZERO -- NOTHING TO DO, 

? INDEX TO DATA BLOCK, 

; MOVE DATA. 

; BUMP INDEX. 

} NO PAGE WRAP, 

? PAGE WRAP -- BUMP POINTER VARIABLES, 

? DONE? 

? NO. 

? NOT SURE -- CHECK FURTHER, 

? YES -- DONE. 

? MAINTAIN D , P . BYTE COUNT. 


? BORROW FROM MSB. 
? (BRA). 


PILOT 


H.B 
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01 JPILOT. 


; CALLING SEQUENCE: 

? 

; 'MSP'/ 'MDP ' / & 'MBC ' SETUP 



; 

JSR 

VOVD A 



9BCA 

/ 

A 5D A MOVDA 

LD A 

MBC 

; 

SETUP BYTE COUNT ... 

9BCC 

AA 

TAX 




98CD 

A8 

TAY 


• 

9 

... AND DATA INDEX, 

9BCE 

0506 

ORA 

MBC+1 

• 

9 

TEST FOR ZERO BYTE COUNT. 

9 B D 0 

F 024 A 9BFb 

8EQ 

J MO 0 9 o 

f 

ZERO -- NOTHING TO DO. 

9802 

16 

CLC 


} 

ADJUST POINTERS FOR START. 

9803 

A5D7 

LD A 

MSP+1 



9B0S 

6508 

ADC 

MBC + 1 



9B07 

5507 

STA 

MSP+1 



9809 

Id 

CLC 




980 A 

A5D9 

LDA 

MDP+1 



980C 

65DB 

ADC 

M0C + 1 



980E 

8509 

STA 

MDP+1 



9BE0 

6 6 ! MOO 10 

DEY 


! 

DECREMENT INDEX. 

9BE1 

COFF 

CP Y 

#$FF 

• 

9 

WRAP? 

9SE3 

D 0 06 A 9BE8 

8NE 

i MD020 

• 

9 

NO. 

98E5 

C6DB 

DEC 

MBC + 1 

• 

9 

YES -- DECREMENT ALL POINTERS (MSB) 

98E7 

C6D7 

DEC 

MSP + 1 



9BE9 

C6D9 

DEC 

MDP+1 



98F8 

B 1 06 :MD020 

LDA 

(MSP) /Y 

m 

9 

MOVE A DATA BYTE, 

98ED 

9 1 06 

STA 

(MDP) / Y 



96EF 

CA 

DEX 


• 

9 

DONE? 

98 F 0 

D0E£ A 9BE 0 

BNE 

! MDO 1 0 

• 

9 

NO -- CONTINUE, 

96F2 

A5DB 

LDA 

MBC+1 

m 

9 

NOT SURE -- CHECK FURTHER. 

98 F 4 

DOHA A 96E0 

BNE 

! M D 0 1 0 

• 

9 

NO -- CONTINUE, 

98F6 

60 SMD09Q 

RTS 


• 

9 

YES -- RETURN, 

98 F 7 

• 

9 

PROC 





MVINLN -- WOVE PART OF 'INLN' TO A FIXED ADDRESS BUFFER 


CALLING SEQUENCE! 

Y = CURRENT INDEX IN 'INLN' 

JSR !WINLN 

'INLNBF' CONTAINS Y/ Y + ' I NB F S 1 ' - 1 CHARACTERS FROM 'INLN' 
LOWER CASE IS CONVERTED TO UPPER CASE. 

Y IS NOT PRESERVED. 
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D 1 

9BF7 

A200 

mvININ 

LDX 

U 0 



9pF9 

B 1 80 

SMVN10 

LD A 

( ININ) , Y 



96F6 

C96 1 


CMP 

A # A ' + $20 

? 

LC? 

9AFD 

9 0 0b 

A 9C 05 

8CC 

J M VN20 

? 

NO. 

9BFF 

C97B 


CMP 

*'Z'+l+$20 



9C01 

8002 

A 9C 05 

PCS 

SMVN20 

• 

f 

MO. 

9Q03 

290F 


AND 

#UC 

} 

YES 

9C05 

90 38 0 5 SMVN20 

STA 

INLNBF / X 



9C08 

C8 


INY 




9C09 

E8 


I NX 




9COA 

E 0 0 A 


CPX 

AINBFSZ 



9C0C 

90EB 

A 9BF 9 

BCC 

: m v i\ l o 



9C0E 

60 


RTS 





- LC - 


> uc. 




*KOT -- 


AT A® I C, 
H.B. 3 Tf ft Aft T 


1 • 0 A ft • p* I 7 | 

01 I P I LOT 


OOL/HL t PRECISION ROUTINES 

ALL VARIABLES A h f accesseo via their offset FR0P symbol 'DTAB*. 
NQRft ALL 1 THE X ANC/CR Y REGISTERS CONTAIN THE # DT AB # OFFSET 
VALUES TO The VARIABLE(S) to be dealt H I TH , 


RCOF 


PH0C 

0 C K c I -- double byte unsigned COMPARE with constant, 
calling seguence: 




7 

X c 

DT AB OFFSET TO VARIABLE. 



7 

Y s 

MSB OF CONSTANT. 




7 

| 

A 3 

LS0 CF CONSTANT. 




9 

7 

f 

JSR 

DCWCI 

7 UNSIGNED 



9 

7 

• 

CC = 

DTAB(X) : Y • A 


9C0F 

85A7 

9 

DCWCI 

STA 

TEMP? 

7 SAVE LSB. 

PC l 1 

*u&b 


STY 

TEVP2+1 

7 SAVE MSB. 

PC t 3 

A o?7 


LDY 

ft TEMP2-DTAB 




7 +S + 

JM° 

DCMPI 

7 COMPARE & 


9C15 


PROC 

7 

7 DCMPI -- DOUBLE byte UNSIGNED COMFAkE INDEXED 
7 

? CALLING SEGUENCE: 

7 

; X = DATA #1 OFFSET 

; Y = DATA *2 OFFSET 




• 

9 

JSR 

DCMPI 



9 

9 

8EC 

DTAB(X) * DTABCY) 



7 

BCS 

C T A 8 ( x ) >= DTABCY 



7 

• 

ecc 

DTAB(X) < DTABCY) 



/ 

• 

/ 

• 

o 

o 

II 

DTAB(X) I DTABCY) ( 

PC 1 b 

BSE 1 

t 

DCMPI 

LD A 

DTAB + UX ? 

PCI 7 

D9S100 


CMP 

DTAe+1 , Y 

PCI A 

D005 A PC2 1 


BNE 

: dcopo ? 



; *** 

external entry POINT **★ 

PC 1 c 

B5B0 

DCM010 

LD A 

DTAB,X ; 

PC IE 

D9E000 


CMP 

DTAfcJ, Y 

9C21 

60 

: DC090 

RTS 



(UNSIGNED) 


; EQUAL -- COMPARE LSBS, 
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9C22 


0 


PKOC 

DSCMI -- DOUBLE BYTE SIGNED COMPARE INDEXED 
CALLING SEQUENCE; 





X = 

DATA n\ OFFSET 

• 



Y = 

DATA * 2 OFFSET 




JSR 

DSCMI 

• 



BEQ 

DTAB(X) = DTA0CY 




BCS 

DTAB(X) >= DTA8C 




BCC 

DTAB(X) < DTABCY 

• 






9C22 

B96100 DSCMI LD A 

DTAB+lfY 


9C?5 

49? Q 

EOR 

*$eo 

• 

9C27 

S5A1 

STA 

TEMP 


9C?9 

BSSl 

LDA 

DTAB + 1 # X 


9C2B 

498Q 

EOR 

#$80 

• 

9C2D 

C 5 A 1 

CMP 

TEMP 


9C2F 

FOEB A 9C 1 C 

BtQ 

DCM010 

• 

°C3 1 

60 

RTS 



; COMPARE MSBS FIRST. 


? EQUAL -- COMPARE LSBS. 
; NOT EQUAL -- AIL DONE. 


9032 


DMOVI -- DOUBLE BYTE MOVE INDEXED 

CALLING SEQUENCE: 

X = DESTINATION OFFSET 
Y = SOURCE OFFSET 

JSR DMOVI 

D T A B ( X ) = DTABCY) 

*** SEE 'PMOVE' FOR THE 'DMOVI' CODE *** 

PROC 

DADDI -- DOUBLE PRECISION ADD 
} CALLING SEQUENCE: 


r 

• 

r 

; 

• 

f 

> 

9 

) 


X = OFFSET TO 
Y = OFFSET TO 


JSR 
B VS 


DADDI 

OVERFLOW 




PILOT 
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D7 A8 ( x ) = OTAB(X) + DTABCY) 


) 


9C3B 

18 

DADDI 

9C33 
PC 35 
PC 38 

pseo 

798000 

P580 

DADDIX 

PC 3 A 
«C3C 
PC 3 P 

6581 

796100 

9561 


PC A 1 

60 



9ZUZ 

; DSUBI 


CLC 


L DA 

DTA6 , X 

ADC 

DTA6 , Y 

STA 

DTA6,X 

LD A 

DTAB+1 f X 

ADC 

DT AB + 1 r V 

STA 

DTA6+1/X 

PTS 


PROC 



-- DOUBLE PRECISION SUBTRACT 


CALLING SEQUENCE : 




■ 

r 

X = 

OFFSET 



m 

r 

Y = 

OFFSET 



} 

; 

JSR 

DSUBI 



• 

r 

B V S 

overflow 



} 

BEG 

RESULT = 



t 

• 

r 

• 

DTAB(X) = DTABCX) 

9C4B 

38 

DSUBI 

SEC 


9C43 

6560 

DSUBI X 

LD A 

DTAB, X 

PC A 1 5 

F96C00 


SBC 

DTA6, Y 

9C A8 

9560 


STA 

DTAB,X 

9C A A 

6561 


LD A 

DTA6+ 1 a X 

9C4C 

F96100 


SBC 

DTABtlrY 

9CAF 

9581 


STA 

DTAB + 1 a X 

9C51 

1560 


ORA 

DTAB, X 

9C53 

to 


RTS 



DTABCY) 


? SET CC FOR ZERO TEST 


9C54 pft0C 

? OMUL I -- DOUBLE PRECISION MULTIPLY 

; CALLING SEQUENCE: 

• 

? X = OFFSET 

; X s OFFSET 

• 

; JSR DMULI 




9 
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D1 : P I LOT . 




• 

9 

• 

D1 ABU) 

= DTABCX) * 

DTAB(Y) 

QC54 

A910 

9 

DMULI 

LD A 

#16 

? SETUP LOOP COUNTER. 

9C5b 

8S A3 


STA 

TEMP +2 


9CS8 

A 9 0 0 


LD A 

* 0 

J INITIALIZE TEMP ACCUMULATOR. 

9CSA 

85 A 1 


STA 

temp 


9C5C 

85A2 


STA 

TEMF+ 1 


°C5E 

1680 

SDM010 

ASL 

DTAB, X 

) DOUBLE PRECISION SHIFT LEFT. 

9C60 

3681 


POL 

DTAB+lrX 


9C62 

9 0 0 F A 9C 7 3 


BCC 

: D w 020 

; NO BIT PRESENT. 

9C64 

18 


CLC 


; BIT SET -- ADD TC PARTIAL. 

9C65 

AS A 1 


LD A 

TEMP 


9C67 

798000 


ADC 

DTAB,Y 


°C6 A 

85 A 1 


STA 

TEWP 


9C6C 

A5A2 


LD A 

TEMP+l 


9C6E 

798100 


ADC 

DTA6 + 1 , Y 


9C71 

8SA2 


STA 

temp+i 


9C73 

C6A3 

: DM020 

DEC 

TEMP+2 

; DONE? 

9C75 

F 0 0 7 A 9C7E 


BEG 

; DM090 

? YES -- RESULT IS IN 'TEMP'. 

9C77 

0 6 A 1 


ASL 

TEMP 

; NO -- DOUBLE PRECISION SHIFT 

9C79 

26A2 


POL 

TEMP+l 


9 C 7 0 

4C5E9C 


JMP 

: DM 0 10 


9C7E 

A 5 A 1 

: DM090 

LD A 

TEMP 

; DONE -- MOVE RESULT. 

9C80 

9580 


STA 

CTABr X 


9C82 

A5A2 


LDA 

TEMP+l 


9C8a 

9581 


STA 

DTAB+1 ,X 


9C86 

60 


RTS 



9C*7 


• 

PROC 





? DDIVI 

-- DOUBLE PRECISION 

DIVIDE 


CALLING SEQUENCE: 


X = OFFSET TO DIVIDEND 
Y = OFFSET TO DIVISOR 



• 

9 

JSP 

DDIVI 



• 

9 

m 

a 

DTABCX) 

= DTABCX) / 

DTAB(Y) (SIGNED) 


w 

• 

9 

'TEMP' 

= REMAINDER 

(SIGN MAY BE WRONG l l 1 ) 

9C87 

• 

9 

P98000 DDIVI 

LDA 

DTA8,Y 

; CHECK FOR DIVIDE BY ZERO 

9C8 A 

198100 

GRA 

DTAB+lf Y 

Mr*. r. 1/ 

9C8D 

D005 A 9C94 

BNE 

: DDO 03 

$ NO " • G.K. 

9C8F 

A 9 8 4 

LDA 

#DIVERP 

? ERROR. 

9C91 

4 C 3 A 7 A 

JMP 

PSTCP 
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1 .OA 


OCR4 4911 

i DD003 

LD A 

*16+1 


9CR6 S5A3 


S 1 A 

T £ MR 1 2 


90^8 SfcAA 


STX 

TEMP+3 


9C P A A 9 0 0 


L D A 

#0 


9C9C 8 5 A 1 


STA 

TEMP 


9C9E 65A2 


ST A 

TEMP + 1 


9C A U 89*10 0 


LD A 

DTAB+1 , 

Y 

9C A 3 6 5 A 6 


STA 

TEMP +5 


9CA5 1006 A 9 C A D 


BPL 

: DDOOfc 


9C A 7 20F19C 


JSR 

DNEGI 


PC A A 200D9C 


JSR 

SDD093 


9CAD B58 1 

J DD006 

LD A 

D T A 8 + 1 t 

X 

9CAF 85A5 


STA 

T E M P + 4 


°CB 1 1003 A 9CB6 


BPL 

: D D 0 0 8 


PC B 3 20F19C 


JSR 

DNEGI 


9CE6 18 

: DDO 08 

CLC 



9C87 A6A4 

: DDO 1 0 

LDX 

TEMP + 3 


9CB9 3660 


ROL 

D T AB # X 


9CBB 3681 


ROL 

DTAB+1 r 

X 

9C8D C6 A 3 


DEC 

TEMP+2 


9CBF FOli A 9C02 


BEG 

: DDO 90 


9CC1 26A 1 


ROL 

TEMP 


9CC3 2bA2 


ROL 

TEMF+l 


9CC5 A221 


LDX 

4TEMP-DTAB 

9CC7 20 1 590 


JSR 

DCMPI 


9CCA 90EB A 9CB7 


6CC 

SODOIO 


9CCC 20429C 


JSR 

DSUBI 


9CCF 36 


SEC 



9CD0 B0E5 A 9CB 7 


BCS 

S DD 0 1 0 


9CD2 A5A5 

; DD090 

LD A 

T£MP + 4 


9CD4 1003 A 9CD9 


BPL 

:DD092 


9CD6 20F19C 


JSR 

DNEGI 


9CD9 ASA 6 

:DD092 

LD A 

TEMP+5 


9CDB 1007 A 9CE4 


BPL 

SDD095 


9CDD 96 

: DD093 

T Y A 



9CDE AA 


TAX 



9CDF 20F19C 


JSR 

DNEGI 


9 C E2 A 6 A 4 


LDX 

T£MP + 3 


9CE4 60 

:DD095 

RTS 




e 175 
D 1 : PILOT. 

SETUP LOOP COUNTFR. 

SAVE INDEX TO DIVIDEND. 

INITIALIZE REMAINDER. 

SEE IF DIVISOR IS NEGATIVE. 

NO. 

YES -- NEGATE DIVIDEND ... 

... & DIVISOR (*** CRAZY CALL ***), 

SEE IF DIVIDEND IS NEGATIVE. 

NO. 

YES -- NEGATE IT NOW (& THEN AGAIN LATER). 

GET INDEX TO DIVIDEND. 

DOUBLE PRECISION ROTATE. 

DONE? 

YES. 

NO. 

IS REMAINDER < DIVISOR? 

YES. 

NO, 

(BRA). 

SEE IF RESULT IS TO PE NEGATED. 

NO. 

YES -- NEGATE POSITIVE RESULT. 

WAS DIVISOR NEGATED EARLIER. 

NO. 

YES -- NEGATF IT BACK TO ORIGINAL SIGN, 


RESTORE INDEX. 


PILOT 


9CE5 


9CE5 
9CE8 
9CEA 
9C EC 
9CEE 
9CF0 


9CF1 


9CF1 
9 C F 2 
QCF4 
9CFb 

9CF8 
9C F A 
9CFC 
°C FE 


9CFF 
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PROC 

DMODI -- MODULO OF SORTS 
CALLING SEQUENCE: 


X = OFFSET TO DIVIDEND 
V = OFFSET OT DIVISOR 



• 

f 

• 

JSR 

DMODI 



• 

9 

DTA8CX) 

= DTAB(X) 

MOD DTABCY) 

20879C 

9 

DMODI 

JSR 

DO I V I 

; FIRST DO DIVISION. 

A 5 A 1 


LD A 

TEMP 

} TAKE ADVANTAGE OF SIDE 

9580 


ST A 

DTABf X 


A5A2 


LD A 

TEMP+1 


9581 


STA 

DTARtl , X 


60 


RTS 





PROC 




% 

% 

< 

« 

% 

I 

i 


DNEGI -- DOUBLE PRECISION NEGATE 
CALLING SEQUENCE: 

X = OFFSET TO NUMBER 



• 

9 

JSR 

DNEGI 


9 

9 

9 

9 

DTAB(X) 

= -OTABC 

38 

DNEGI 

SEC 


A 9 0 0 


LD A 

HO 

F 58 0 


SBC 

DTABf X 

9580 


STA 

DTAB,X 

A90 0 


LD A 

AO 

F 58 1 


SBC 

DTAB+1, X 

9561 


STA 

DTAB+1 , X 

60 


RTS 



(CLEAR BORROW), 


PROC 

DABS I -- DOUBLE PRECISION AQS FUNCTION 

CALLING SEQUENCE: 

X = OFFSET TO NUMBER 
JSR DABS I 


DTA8CX) 


APS (DTAB(X) ) 
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9CFF 

9001 

8581 DABS I 

30EE A 9C F 1 

LOA 

0*1 

DTA0+1 , X 

CNEGI 

; CHECK SIGN OF MSB, 

9003 

60 

RTS 




9004 


PROC 


; DADOS -- ADO A REGISTER TO DOUBLE BYTE 


J CALLING SEQUENCE: 


9 

; 

; 

; 

; 


A = SIGNED BINARY NUMBER (-126 TO 127) 
X = DTAb OFFSET TO DP NUMBER 


t 

? 


JSR DADDS 

DTAB(X) = DTAB(X) + A 


9004 C900 

9006 3 0 0 C A 90 1 4 


DADDS 


CMP 

BMI 


#0 

: D A 0 3 0 


? *** EXTERNAL ENTRY POINT ★ ** 


; *+* EXTERNAL ENTRY FOINT *** 


CALLING SEQUENCE: 

X = DATA # 1 OFFSET 


? SEE IF POSITIVE OR NEGATIVE. 
} NEGATIVE. 


9008 

16 

DADOP CLC 


• 

9 

9D09 

7560 

ADC 

DTAB,X 


9008 

9560 

STA 

D T A B , X 


9D0D 

9002 A 9D 1 1 

see 

: DA 0 1 0 

: 

9D 0 F 

F681 

INC 

DTA9T1 »X 

• 

t 

9011 

60 

: DA 0 1 0 RTS 




? POSITIVE -- ADD. 


9012 

A9FF 

DDCRI 

LD A 

8-1 

9D14 

18 

:DA030 

CLC 


9015 

7580 


ADC 

DTAB # X 

9017 

9580 


STA 

CTA6,X 

9019 

BO 02 A 9 D 1 D 


PCS 

J D A 0 A o ; 

9016 

D68 1 


DEC 

DTA8+1#X } 

9D1D 

60 

! DA 0 AO 

RTS 


9D1E 



PhOC 




} RELATIONAL 

TESTS 


; NO BORROW. 

f BORROW -- SUB FROM MSB 
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3 11 n T Lj Q 


erruiADT 


ni • p t i nT 



ATARI CAMAC Assembler Ver l.OA Page 178 
PILOT -- H.B. STEWART DlsPILOT. 




• 

9 

• 

Y = 

DATA #2 OFFSET 







9 

t 

• 

JSR 

DXXTI 

ONE OF SIX ROUTINES 





9 

; 

DTAB 

(X) = 1 IF RELATION 

TRUE r 0 IF FALSE 



9 0 1 E 

20159C 

DEQTI 

JSR 

DCMPI 

• 

t 

UNSIGNED COMPARE (FASTER THAN 

SIGNED) , 

9C21 

F 0 2 7 A 9D4 A 


9EQ 

DTRLE 

m 

9 

EQUAL RESULTS IN TRUE. 



9D23 

0029 A 9D4E 


BNE 

DFALSE 

} 

UNEQUAL RESULTS IN FALSE, 



9025 

20159C 

DNETI 

JSR 

DC VP I 

• 

9 

UNSIGNED COMPARE (FASTER THAN 

SIGNED). 

9028 

0020 A 9Q4A 


BNE 

DTRUE 

• 

r 

UNEQUAL RESULTS IN TPUE. 



902A 

F 0 2 2 A 904E 


BEQ 

DFALSE 

• 

9 

EQUAL RESULTS IN FALSE. 



9D2C 

20229C 

DGTTI 

JSR 

DSCVI 

9 

9 

SIGNED COMPARE. 



902F 

F01D A 904E 


8EQ 

DFAL3E 

? 

EQUAL RESULTS IN FALSE. 



QO?l 

9018 a 9Q4E 


BCC 

DFALSE 

• 

9 

LESS THAN RESULTS IN FALSE. 



9D33 

8015 A 9D4 A 


BCS 

DTRUE 

• 

9 

GREATER THAN RESULTS IN TRUE. 



9035 

20229C 

DLTTI 

JSR 

DSCN I 

• 

9 

SIGNED COMPARE. 



9038 

9010 a 9D4A 


BCC 

DTRUE 

• 

9 

LESS THAN RESULTS IN TPUE. 



903 A 

8012 A 9D4E 


BCS 

DFALSE 

} 

GREATER THAN OR EQUAL PESULTS 

IN 

FALSE 

90 3 C 

20229C 

DGETI 

JSR 

DSCNI 

9 

9 

SIGNED COMPARE. 



9D3F 

9009 A 904 A 


PCS 

DTRUE 

9 

9 

GREATER THAN OR EQUAL RESULTS 

IN 

TRUE. 

9 D Ai 1 

9008 a 9D4E 


BCC 

DFALSE 

9 

9 

LESS THAN RESULTS IN FALSE. 



9043 

20229C 

DLETI 

JSR 

DSCNI 

9 

9 

SIGNED COMPARE. 



9046 

F 0 0 2 A 9D4 A 


BEQ 

DTRUE 

• 

9 

EQUAL RESULTS IN TRUE. 



9048 

9004 A 9D4E 


BCS 

DFALSE 

9 

9 

GREATER THAN RESULTS IN FALSE 

• 




} *S* 

8CC 

DTRUE 

9 

9 

LESS THAN RESULTS IN TPUE. 



9D4A 

A901 

DTRUE 

LDA 

P\ 

? 

"TRUE" ... 



9D4C 

D002 A 9D5 0 


BNE 

DFA010 

9 

0 

... TO VARIABLE. 



9D4E 

A900 

DFALSE 

LDA 

*0 

9 

9 

"FALSE" ... 



9050 

9580 

DFA010 

STA 

CTA6, X 

9 

9 

... TO VARIABLE. 



9052 

A90 0 


LOA 

#o 





9054 

9581 


STA 

DTABt 1 r X 





9056 

60 


RTS 







% 

% 

I 

« 

% 

t 

f 


9057 


= 0000 


PROC 

IF 


LOGGRP 




; DLANDI -- DOUBLE PRECISION LOGICAL AND 




? CALLING SEQUENCE: 
? 

X = OFFSET 
Y = OFFSET 


JSR 


D L A K D I 


PILOT -- H.B. 


9057 


9057 205E90 

9Q5A FOEE A 9D4 A 
905C DO F 0 A 9D4E 


9D5E 
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STEWART 


; 

9 

DTABCX) 

= DTABCX) 

LOGICAL 

9 

DLANDI 

JSR 

DTXP 

• 

9 


BEQ 

dfalse 

• 

0 

; * * * 

ENTRY FOR 

'DLORI' *** 

DA NO 1 0 

JSR 

DTYP 

• 

9 


BEQ 

DFALSE 

? 


BNE 

DTRUE 

? 


D1 : PILOT. 


AND DTABCY) 

IS DTABCX) FALSE? 
YES. 


IS DTABCY) FALSE? 

YES -- SET DTABCX) s FALSE AND EXIT. 
NO -- SET DTABCX) = TRUE AND EXIT. 


PROC 

; DLORI -- DOUBLE PRECISION LOGICAL OR 

; CALLING SEQUENCE! 

} 

X = OFFSET 
V = OFFSET 

JSR DLORI 


? 


• 

9 

9 

DTABCX) 

= DTABCX) 

LOGICAL 

OR DTABCY) 

DLORI 

JSR 

DTXP 

• 

9 

IS DTABCX) TRUE? 


BNE 

DTRUE 

• 

9 

YES. 


BEQ 

DAN01 0 

? 

NO C8RA). 


ENDIF 

PROC 





DLNOTI -- DOUBLE PRECISION LOGICAL NOT 


? CALLING SEQUENCE: 

; X = OFFSET 

9 

; JSR DLNOTI 

; DTABCX) = LOGICAL NOT DTAB(X) 

9 

DLNOTI JSR DTXF ? TRUE OR FALSE? 

BEQ DTRIE ? FALSE -> TRUE AND EXIT. 

BNE OFALSE ; TRUE -> FALSE AND EXIT. 


PROC 

; 

; DTXP -- DTABCX) PREDICATE 

* 

? CALLING SEQUENCE: 


; 

; 


X = OFFSET 
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JSR DTXP 


BNE IF DTAB(X) POSITIVE (TRUE) 

BfcQ IF DTAB(X) ZERO OR NEGATIVE (FALSE) 


°D5E 

R561 

DTXP 

LDA 

DTAB+1 ,X 



9D60 

3003 a 9Q65 


BMI 

DTX010 

• 

9 

NEGATIVE. 

9Dbd 

1580 


ORA 

D T A 8 » X 

• 

9 

POSITIVE OR 

9D64 

60 


RTS 


• 

9 

CC IS SET. 

°065 


DTY010 





9065 

A 9 0 0 

DTX010 

LDA 

#0 



9067 

60 


RTS 






• 

9 

} DANDI 

m m 

DOUBLE PRECISION 

AND 



; CALLING SEQUENCE: 

X = OFFSET 
Y = OFFSET 




• 

9 

• 

JSR 

DANDI 



9 

• 

9 

• 

DTAB(X) 

= DTAB(X) 

9066 

658 0 

9 

DANDI 

LDA 

DTABf X 

906 A 

396000 


AND 

CTA6, Y 

9D60 

9560 


STA 

DTA6, X 

906F 

B58 l 


LDA 

DTAB+1, X 

9D71 

398100 


and 

DTA8+1,Y 

9074 

9561 


STA 

CTAB + 1 ,X 

9076 

60 


RTS 



DOR I -- DOUBLE PRECISION OR 

CALLING SEQUENCE: 

X = OFFSET 
V = OFFSFT 




• 

9 

0 

JSR 

DOR I 



9 

• 

9 

• 

DTAB(X) 

= DT A8 ( X ) 

9077 

B580 

DGRI 

LDA 

DTAB,X 

9Q79 

198000 


ORA 

DTA8,Y 

9D7C 

9580 


STA 

OTAbf X 

9D7E 

8581 


LDA 

DTAB+1 ,X 

9080 

198100 


ORA 

DTAB + HY 

9083 

9581 


STA 

DTAB+lr X 


PILOT -- H.tt 
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D1 i PILOT. 


9085 60 


RTS 


DXORI -- DOUBLE PRECISION XOR 
CALLING SEQUENCE: 




• 

9 

X = OFFSET 



• 

9 

• 

Y = OFFSET 



9 

f 

• 

JSR DXORI 



9 

• 

9 

• 

DTABCX) r DTABCX) 

9086 

B58 0 

DXORI 

LD A PTA9,X 

9088 

598000 


EOR DTAB f Y 

9066 

9580 


STA DTA8,X 

9080 

B58 1 


LD A DTA6+1,X 

908 F 

598100 


EOR DTA8+1,Y 

9092 

9581 


STA D T A 8 + 1 rX 

9094 

60 


RTS 



B580 

49FF 

9580 
8581 
49FF 

9581 
60 


DNOTI -- DOUBLE PRECISION NOT 


CALLING SEQUENCE: 


DNOTI 


X = OFFSET 


JSR 


DNOTI 


DTABCX) = NOT CTABCX) 


LD A 
EOR 
STA 
LD A 
EOR 
STA 
RTS 


DTA8, X 
#$FF 
DTA0,X 
DTAB + UX 
#$FF 

DTABtlfX 


= 0000 


IF LOGGRP 

PROC 

; DTYP -- DTABCY) PREDICATE. 
• 

; CALLING SEQUENCE: 

; 

Y = OFFSET 


JSR DTYP 



atari 

C A N* A C Assembler V e r 

l.OA 

Pafli* 18? 

PILOT -- H.8. 

STEWART 





D1 :PILOT. 


• 

9 

BNE 

IF 

DT AB ( Y ) 

POSITIVE 

(TRUE) 


• 

9 

• 

BEQ 

IF 

DTABCY) 

ZERO OR 

NEGATIVE (FALSE 5 

m 

9 

DTYP 

LDA 


DTAB+1# 

Y 


m 


BMI 


DTY010 


f NEGATIVE. 

m 


ORA 


DTA6, Y 


J POSITIVE OR 7ERO. 

m 


RTS 




; CC IS SET. 



ENDIF 





PILOT 
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9DA2 PKOC 

I 

t ACCUMULATOR FUNCTIONS -- ASSUME THE EXISTENCE 
J VARIABLE WITHIN 'DT AB ' NAMED 'ACC', 

I 

; 

; DLOADA -- LOAD 'ACC' WITH DATA 

; 

; CALLING SEQUENCE! 

; 

? Y = OFFSET TO SOURCE DATA 


; 




; 

; 

• 

9 

JSR 

CLCADA 



X s ACC 

OFFSET 



; 

• 

'ACC' s 

DTAc(Y) 

RDA2 

A262 

9 

DLOADA 

LDX 

AACC-CTAB 

Q0A4 

4C459A 


JNP 

DMOVI 

90A7 



PROC 



J DSTORA -- STORE 'ACC' TO LOCATION 

9 

; CALLING SEQUENCE: 

9 

? X = OFFSET TO DESTINATION 

; 

JSR DSTCRA 


Y = 'ACC' OFFSET 
DTAB(X) = 'ACC' 


90 A 7 

A 062 


dstqra ldy 

# ACC-DTAB 

90 A 9 

4C459A 


JMP 

DNOVI 

90 AC 



PROC 





DADDA -- ADD 

DATA TO 'ACC' 




CALLING SEQUENCE: 




Y = OFFSET TO DATA 




JSR 

DADDA 



; 

X = 'ACC' OFFSET 



• 

9 

• 

'ACC' = 

'ACC' t DTAB(Y) 

9 D A C 

A262 

* 

DADDA LOX 

# ACC-OT AS 

9DA£ 

4C329C 


JMP 

DADDI 

9JB1 



PROC 



OF 


A DOUBLE PRECISION 


*Q B1 


PROC 
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DSUBA -- SUBTRACT DATA PROM 'ACC' 
CALLING SEQUENCE: 

V = OFFSET TO DATA 


# 



• 

r 

JSP 

DSUBA 



? 

• 

BEQ 

RESULT = 0 

# 



r 

• 

X = 

'ACC' OFFSET 




• 

'ACC 

' = 'ACC' - DTABCY) 

# 



• 

f 




9DB1 

A262 

DSUBA 

LDX 

AACC-DTAB 


9DB3 

4C42RC 


JMP 

DSUBI 

• 






• 

9DB6 


• 

PROC 





f 

; DCMPA 

-- COMPARE 'ACC' WITH DATA (UNSIGNED) 

• 



• 

9 






? CALLI 

? 

• 

? 

• 

f 

NO SEQUENCE: 

• 



y = 

DATA OFFSET 




J5R 

DCMPA 

• 



• 

t 






; 

CC = 

'AC C' : DTABCY) (UNSIGNED) 




; 

• 

X = 

'ACC' OFFSET 


RDBfa 

A262 

f 

DCMPA 

LDX 

# ACC-DT AB 


9DP8 

4C159C 


JMP 

DCMPI 
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908B PROC 

I 

t ASCDEC -- DECIMAL IN ASCII TO BINARY CONVERSION 

; 

; CALLING SEGUENCEs 

; 



• 

X = 

OTAB OFFSET TO 

POINTER 

variable 

# 

• 

9 

• 

Y = 

OFFSET WITHIN 

STRING TO START OF NUMBEP 


9 

• 

9 

JSR 

ASCDEC 



# 

• 

9 






; 

'NUMBER' = RESULT 

OF CONVERSION (MODULO 2**16) 


• 

9 

Y = 

INDEX TO END OF NUMBER 

DELIMITER 

# 

• 

9 

• 

USES 

'TEMP' THRU ' 

TEMP '*4 


9088 A 9 0 0 

9 

ASCDEC 

LD A 

AO 

• 

9 

INITIALIZE RESULT. 

# 9080 6586 


STA 

NUMBER 



9D8P 8589 


STA 

NUMBER*! 



# 9DC1 6580 


LD A 

DTAP,X 

• 

9 

MOVE POINTER. 

9DC5 65 A 3 


STA 

TEMP+2 



90C5 8581 


LD A 

DTAS+1 ,X 



# 90C7 85A4 


STA 

TEMP+3 



90C9 6563 


LD A 

DT A8 + 3 * X 

• 

9 

SAVE END INDEX. 

9DC6 85 A 5 


STA 

TEMP + 4 



• 






9DCD 81 A3 


LD A 

(TEMP+2) , Y 



9DCF C 920 


CMP 

n '-' 

? 

UNARY MINUS? 

# 9001 0009 A 9DDC 


8NE 

; aco 1 o 

a 

9 

NO. 

90D3 C8 


INY 


m 

9 

YES -« SKIP OVER IT. 

# 9004 20DC9D 


JSR 

: ACOlO 

• 

9 

*** RECURSIVE CALL ** 

Q DD7 A236 


LDX 

^NUMBER-DTAB 


9009 4CF19C 


JMP 

DNEGI 

0 

9 

NEGATE RESULT R FETUR 

# 






9Q0C C4A5 

• AC 0 1 0 

CRY 

TEMP t4 

• 

9 

END OF STRING? 

9D0E F 033 A 9E13 


BEQ 

;AC090 

• 

r 

YES. 

W 

9DE0 8 1 A 3 


LD A 

CTEMP+2) , Y 

} 

GET A CHARACTER. 

9DE2 20839E 


JSR 

CNUMBR 

• 

9 

VALID DECIMAL DIGIT? 

» 9DE5 BG2C A 9E 1 3 


BCS 

: AC090 

0 

9 

NO -- DONE. 

90E7 C& 


INY 




> 9DE6 ^6 


PHA 


• 

9 

YES -- SAVE IT. 

90E9 0666 


ASL 

NUMBER 

• 

9 

X2. 

9DE6 2689 


RCL 

MUMPEF+1 



9DED A 589 


LDA 

NUM6EP+1 

• 

9 

SAVE X2. 

9DEF 85A2 


STA 

TEMFtl 



9DF1 A. 588 


LDA 

NUMBER 



9DF3 6 5 A 1 


STA 

temf 



9DF5 OA 


ASL 

A 

• 

9 

X4. 

9PF6 26E 9 


RUL 

NUMBER+l 



°0F8 OA 


ASL 

A 

9 

9 

xe. 


9DF9 2689 


RUL 


NUMBER+1 





PILOT 


H 


pdfb 

9DFC 

9DFE 

9EOO 

9E02 
9£ 0 4 


9t05 
9E06 
PE06 
9£ 0 A 
9E0C 
9E0E 
9E10 

9E13 


9E14 


9E14 
9E 1 o 
9E16 
9E1 A 
9E1C 
9E1E 

9E2G 
9E?2 
9t 25 
9E27 

9E2 A 
9E2C 

9E2E 

9E31 

9E33 

9£3b 

9E36 

9fc3A 

9E3C 
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D 1 : P I LOT . 


18 

CLC 


65 A 1 

ADC 

TEMP 

8588 

STA 

NUMBER 

9003 a 9E05 

BCC 

: AC020 


X10 r X8 + X2. 


NO CARRY. 


E669 

18 


INC NUMBEF+1 ? CARRY •- ADD TD MSB , 

CLC 


68 

: AC020 PLA 


65B8 

ADC 

NUMBER 

8 5 B 8 

STA 

NUMBER 

A589 

LD A 

NUMBER* 1 

65A2 

ADC 

TEMP 1 1 

B5B9 

STA 

NUMBER+1 

4CPC9D 

JNP 

SACO 10 


GET NEW DIGIT. 

ADD TO PARTIAL RESULT. 


60 :AC090 RTS 


PROC 

; DEC ASC -- BINARY TO DECIMAL IN ASCII CONVERSION 

? CALLING SEQUENCE: 

? 

} X = DTAB INDEX TO SIGNED VALUE 

• 

; JSP DECASC 

} 

; PRINTS RESULT TO 'CHQT # ROUTINE 



• 

f 

• 

USES 

'TEMP'+2 THRU 

84A6 

9 

DECASC 

STY 

TEMF+5 

8580 


LD A 

DTAB* X 

8 5 A 7 


STA 

TEMP? 

8581 


LD A 

DTA8+1,X 

85 A8 


STA 

TEMP2t 1 

1 0 0 A A 9E2 A 


BPL 

: DC 020 

A227 


LDX 

PTENP2-DTAB 

20F19C 


JSR 

DNEGI 

A92D 


LD A 


208294 


JSP 

CHOT 

A 0 0 0 

s DC020 

LD Y 

tfO 

84A9 


STY 

TEMP2+2 

B9799E 

: DC030 

L D A 

PTENrY 

85 A3 


STA 

TEMP + 2 

B97A9E 


LD A 

PTEN + 1 * Y 

6 5 A4 


STA 

TEMP+3 

64A5 


STY 

TEMP + 4 

A 93 0 


LD A 

*'0' 

PD 1 105 


STA 

DIGIT 


# TEMP'+5 & # TEMP2 # THRU 'TEMP2 # +2 

? SAVE Y REGISTER. 

; MOVE DATA TO TEMPORARY STORAGE. 

; NUMBER IS POSITIVE. 

f NEGATE NUMBEP. 

} PRINT LEADING MINUS SIGN. 

? PRINT A CHARACTER. 

; INITIALIZE CONVERSION INDEX ... 

} ... & LEADING ZERO SUPPRESS FLAG. 

; GET POWER OF TEN. 

; SAVE INDEX TO TABLE. 

} INITIALIZE DIGIT. 
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9E3F 

A227 


LDX 

•TEPP2-DTAB 

9E41 

A 023 


LDY 

*TEPPt2-DTAB 

9E43 

20429C 

1 DC 040 

JSR 

DSUBI 

9£ A o 

A 5 A 8 


L D A 

T E ** P 2 ♦ 1 

9E46 

3005 A 9E4F 


Bp I 

1 DC 0 4 5 

9t 4A 

ELI 105 


INC 

DIGIT 

9t 4 D 

C 0 F 4 A 9t 4 3 


PNE 

x DC040 

9 1 4 F 

P0329C 

; DC045 

JSR 

DADO I 

9fc52 

A 5 A 9 


LDA 

TEMP2+2 

9£54 

0009 A 9E5F 


PNE 

X DC050 

9E5b 

ADI 105 


LDA 

DIGIT 

9E59 

C930 


CPP 

# # 0 ' 

9E5B 

F 0 08 A 9E 65 


BEQ 

X DC060 

9E5D 

85 A 9 


SI A 

TEPF2+2 

9E5F 

AD 1 1 05 

: DC 05 0 

LDA 

DIGIT 

9£62 

208294 


JSR 

CHOT 

9E65 

A 4 A 5 

: DC060 

LDY 

TEPP+4 

9E67 

C 6 


INY 


9E66 

C 0 


INY 


9E69 

COCA 


CP Y 

8PTENL 

q E6B 

DOC 1 *9E2E 


PNE 

! DC 0 3 0 

9E6D 

A 5 A 9 


LDA 

TEPP2+2 

9 EbF 

D005 A 9E 76 


PNE 

XDC070 

9E71 

A930 


LDA 

P'O' 

9E73 

208294 


JSR 

CHOT 

9E7 1 

A4A6 

: DC 0 70 

LDY 

TEMP+5 

9E76 

60 


RTS 


9E79 

1027E60364 

PTEN 

Dto 

o 

o 

o 

o 

o 

— « 
* 

o 

o 

o 

o 


: 0 0 0 A 

PTENL = 

★-PTEN 
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; PREPARE FOR SUCCESSIVE SUBTRACTION. 

J SEE IF RESULT IS NEGATIVE. 

J YES -- ENOUGH ALREADY. 

; NO -- KEEP SUBTRACTING. 

? (BRA). 

! NOW CORRECT FROP ONE TOO MANY SUBTRACTS. 

; SEE IF NON-ZERO DIGIT HAS BEEN PRINTED YET. 
; YES -- PRINT ALL SUBSEQUENT DIGITS. 

? NO -- SEE IF THIS DIGIT IS ANOTHER ZERO. 

; YES IT IS -- SUPPRESS IT. 

? NO -- SET FLAG AND PRINT DIGIT. 

; PRINT DIGIT. 

? RESTORE TABLE INDEX. 

? DONE? 

? NO. 

; to AS THE NUMBER = 0? 

? NO. 

; YES -- PRINT SINGLE ZERO DIGIT, 

. YES -- RESTORE Y REGISTER ... 

; ... & RETURN, 


1 ; DECREASING POtoERS OF TEN, 

? TABLE LENGTH IN toCRDS, 
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9£P 3 


PROC 

7 

; CNUMBR -- CHECK ASCII CHARACTER FUR VALID NUMBER C'O - '9) 
7 

7 CALLING SEQUENCES 

; 

A = ASCII CHAPACTER 


JSR 

BCS 


CNUMBR 

NOT DECIMAL DIGIT 





• 

9 

• 

A = 

BINARY DIGIT 


Q E 83 

C930 


9 

CNUMBR 

CMP 

A'O' 

(V* 

o 

% 

V 

•V 

9E85 

9^04 

A 9E8B 


BCC 

SCN010 

7 YES -- INVALID. 

9E87 

C93 A 



CMP 

#'9'+l 

i > '9? 

9E89 

9002 

A 9E8D 


PCC 

SCN020 

? NO -- VALID DECIMAL DIGIT. 

9EPB 

38 


SCN010 

SEC 


7 SET CARRY FOR EXIT. 

9E8C 

60 



R1S 



9E8D 

E92F 


SCN020 

SBC 

*'0'-l 

; (ADJUST FOR CARRY CLEAR). 

9E6F 

16 



CLC 


7 SET CC FOR EXIT. 

9E90 

60 



RTS 




9E^1 


PROC 

7 

? CLETTR -- CHECK ASCII CHARACTER FOR ALPHA LETTER C'A 
CALLING SEQUENCES 

A = ASCII CHARACTER 


- 'Z) 


JSR 

BCS 


CLFTTR 

NOT ALPHA LETTER 


A = ASCII CHARACTER 


9E91 

46 


CLETTR 

PHA 


7 

SAVE CHARACTER. 

9E92 

29DF 



AND 

#UC 

7 

FORCE UPPER CASE. 

9£9a 

C94 l 



CMP 

#' a' 

• 

9 

< 'A? 

9E9 0 

9004 

a 9E9C 


BCC 

SCL010 

7 

YES -- NOT ALPHA. 

9E9S 

C95d 



CMP 

#'Z'+1 


7 > 'Z? 

9 E 9 A 

9001 

A 9E9D 


BCC 

SCL020 

• 

9 

NO -- VALID LETTFR 

9E9C 

38 


SCL010 

SEC 


• 

9 

SET CARRY FOP EXIT 

9E9D 

68 


SCL020 

PLA 


? 

RESTORE CHARACTER. 

9E9E 

60 



RTS 








PILOT 
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9E9F 


PKOC 





'} ST*LST -- 

SETUP LIST POINTER 

TO 

STATEMENT LIST 



stmlst 




9&9F 

A 5 A E 

LDA 

S1L 


'LP' = ' S 1 L ' , 

9£ A 1 

8 58 A 

STA 

LP 



9EA3 

A 5 A F 

LOA 

S1L + 1 



9EA5 

8586 

STA 

LP+1 



9£ A 7 

A 9 0 0 

LD A 

AATRLIN 

• 

'LIN' FOR LINE 

9£ A 9 

8 066 0 5 

STA 

ATRTYP 



«EAC 

60 

RTS 




9EAD 


PROC 

• 






; SETS VL -- 

• 

SETUP LIST POINTER 

TO 

NAMED STRING L 

9E A D 

A5B2 

SETSVL LDA 

S2L 

• 

9 

'LP' = 'S?L ' • 

9EAF 

S56A 

STA 

LP 



9E81 

A 583 

LDA 

S2L+1 



9E83 

8588 

STA 

LP + 1 



Q£R5 

60 

RTS 





9E96 


PROC 

CKEOA -- CHECK FOR END OF ATOM (NON- ALPHANUMERIC CHARACTER) 
CALLING SEQUENCE: 

A = ASCII CHARACTER 




• 

9 

JSR 

CKEOA 





m 

9 

BEQ 

END OF ATOM 

(NOT 

AN ALPHANUMER 

9£P6 

20919E 

CKEOA 

JSR 

CLETTR 

• 

9 

ALPHA LETTER 

9E89 

900C A 9EC7 


BCC 

SCK090 

• 

9 

YES. 

9EP8 

ad 


PHA 




9EBC 

20F39E 


JSR 

CNUMBR 

? 

NO -- NUMERI 

9EPF 

66 


PLA 



YES. 

9£C 0 

9005 A 9EC7 


BCC 

: CK090 

? 

9EC2 

85 A 1 


STA 

TEMP 

} 

NEITHER — S 

9EC4 

C5 A 1 


CMP 

TEMP 



9EC6 

60 


RTS 




9EC7 

C9FF 

: CK090 

CMP 

*$FF 

• 

9 

SET CC FOR E 

9£C9 

60 


RT3 





* 
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¥ 



• 

? SCEO A -- SCAN 

• 

TO END OF ATOM 



9ECA 

C8 

INY 



1 







RECB 

8180 

SCEO A LD A 

(ININ) , Y 



°ECO 

20B69E 

JSR 

CKECA ? 

END OF ATOM? 

V 

redo 

OOFS A 

9EC A BNE 

SCEO A- 1 ; 

NO. 


9£D2 

60 

RTS 

• 

9 

YES -- RETURN 


9ED3 


PROC 

SCNLBL -- IDENTIFY U SCAN TO END OF) LABEL 
CALLING SEQUENCE: 


Y = 

INDE 

X 

TO 

INPUT 

LINE. 


JSR 


SC 

nlbl 




BNE 


NO 

L 

ABEL 

PRESENT 

(A 

Y 5 

INDE 

X 

TO 

END 

OF 

LABEL 

♦ 

T = 

INDE 

X 

TO 

FIRST 

NON-SE 

PAR 


= CODE) 




? note: 
? 

SCNLBL 

JUMPS TO 

9ED3 

20079F 

JSR 

9ED6 

8CCA05 


STY 

9ED9 

C92 A 


CMP 

9EDB 

F 0 0 3 A 9EE0 


BEQ 

9E0D 

A90? 


LD A 

9EDF 

6 U 


RTS 

9 1 1 0 

C8 

: SL005 

INY 

9EE1 

6180 


LD A 

9£E 3 

20B69E 


JSR 

Q EF6 

D0E3 A 9ECB 


BNE 

9EE8 

A902 


LD A 

9EEA 

4C3A7A 


JMP 

9EED 



PROC 


NOTE: JUMPS TO 'PSTOP' IF INVALID LABEL NAME FOUND. 


SKPSEP 

• 

9 

SKIP LEADING BLANKS 

INDENT 

? 

UPDATE # AUTO INDENT 

A '★ ' 


? LABEL PREFIX DELIM 

: SL005 

• 

9 

YES. 

# I Mp p F R 

• 

9 

NO LABEL. 

( INLN ) 9 Y 

CKECA 

? 

SEE IF AT LEAST ONE 

SCECA 

? 

YES -- SCAN TO END 

A ATVERR 
P3TCP 

; 

NO -- INVALID LABEL 


; CHKSEP -- CHECK FCP OPERAND SEPARATOR CHARACTER 
? CALLING SEQUENCE: 

A = CHARACTER. 


JSR 

BNE 


CHKSEP 

NOT A SEPARATOR 
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01 : P I LOT , 

REED 

• 

C9 20 CHKSEP 

CMP 

U 0 0 

? BLANK? 

9EEF 

F 0 0 7 *9EF8 

BEQ 

: CS090 

} YES. 

9EF1 

C92C 

CMP 

n' , 0 

; COMMA? 

REF3 

F 0 03 A 9E F 8 

BEQ 

! CS090 

? YES. 

9EF5 

ACF99E 

JMP 

CHKTRM 

? END OF STATEMENT CHECK & RETURN. 

9Ef=6 

tO SCS090 

RTS 




9E F9 


PROC 

CHKTRM -- CHECK FOR STATEMENT TERMINATOR (EOL OR '['), 
CALLING SEQUENCES 




• 

9 

? 

• 

f 

9 

9 

• 

9 

A = 

CHARACTER. 



JSR 

3NE 

CHKTRM 

NOT STATEMENT TERMINATOR, 

9EF9 

9EF8 

C99B 

F 0 02 A 9E F F 

CHKTRM 

CMP 

BEQ 

#EOL 

:CK090 

9EFD 

C956 


CMP 

tfSBRACK 

9EFF 

60 

:CK090 

RTS 


9p 0 0 


• 

PROC 




; CHKEGS 

m m 

CHECK FOR EQUAL SIGN 


; calling sequences 

Y = 'INLN' INDEX. 




; JSR 

CHKEQS 



! BEQ 

1ST NON-BLANK CHARACTER WAS ' = 



9 

9 V = 

• 

9 

'INLN' INDEX TO 1ST NON-BLANK CHAR, 

9F00 

20139F 

CHKEGS JSR 

SLB / SKIP LEADING BLANKS, 

9F03 

C93D 

CMP 

# # s' 

9F05 

60 

RTS 

; RETURN WITH CC SFT . 


9F06 


PROC 


I 
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9F06 C6 

9F07 8180 

9R09 C920 

9FOB F0F9 A 9F06 

9F0D C92C 
c p o F F0F5 A 9F06 

9F11 60 


SKPSEP -- SKIP OPERAND SEPARATOR ( S ) 

CALLING SEQUENCE: 

Y = INDEX TO INPUT LINE 

JSR SKPSEP 

Y = INDEX TO FIRST NON-SEPARATOR FOUND 

? NOTE! any STRING OF CONSECUTIVE BLANKS AND/OR COPRAS IS TREATED AS A SINGLE 
SEPARATOR. 

INY 


» 


SKPSEP 


LD A 
CMP 
BEQ 

CMP 

BEQ 

RTS 


CINLN),Y 
SKPSEP" 1 


SKPSEF-1 


} BLANK? 
; YES. 

; COMMA? 
? YES. 


9 F 1 2 


9 F 1 2 C6 

9 F 1 3 B 1 6 0 
9F15 C920 

9F 1 7 F0F9 A 9F12 

9 F 1 9 60 


PROC 

SLB -- SKIP LEADING BLANKS 
CALLING SEQUENCE: 

JSR SLB 

A = FIRST NCN -BLANK CHARACTER FOUND. 
INY 


SLB 


LD A 
CMP 
BEQ 

RTS 


( I NLN ) # Y 

n' ' 

SLB- 1 


? BLANK? 

. YES -- KEEP SCANNING. 


9F1 A 


9F1 A 

ce 

INY 

9F1B 

6190 

SCNEOL LUA 

9F1D 

C 996 

CMP 

9F1F 

DO F9 A 9F1A 

BNE 


PROC 

SCNEOL -- SCAN TO END OF LINE 


(INLN)fY 

AEOL 

SCNEOL- 1 


PILCT - 
9F21 60 
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RTS 


; RETURN WITH CC SET. 


9F22 


PROC 

; 

9 P SF -- PRINT A STORAGE FORMAT LINE 
CALLING SEQUENCE? 



; 

• 

V = 

INDEX TC LINE POINTER. 



• 

• 

JSR 

PSF 



► 

9F22 A236 

9 

PS F 

LDX 

APOINT-DTAB 

; MOVE POINTER TO 'POINT'. 


9F24 2 C A 59 A 


JSR 

DMO VI 



* 9F27 208C9F 


JSR 

G7LNNC 

? GET LINE A TO 'LINENO'. 


9F2A A600 


LDX 

LINENC+1 

? LEADING SPACES TC RIGHT-JU8TIFY 

LINE A, 

9F 2C E003 


CPX 

A HIGH 1000 

? >= 1000? 


9F2E 9 0 C 8 A 9F38 


ecc 

: PS002 

? NO. 


9F30 D01C A 9F4E 


eNE 

SPS003 

; YES. 


9F32 A5DC 


LD A 

LINENC 



9F34 C9F6 


CMP 

A LC In 1000 



9F36 BOlfc A 9 F4E 


BCS 

;psoo3 

; YES. 


9 F 3 8 20A29F 

: PS002 

JSR 

SPACE 



9F3B 8 A 


TX A 


? >= 100? 


9F3C D010 A 9 F4E 


PNE 

! PS003 

? YES. 


9F3E At>DC 


LDX 

LINENC 



9F4 0 F 064 


CPX 

A 100 

b* 

o 

o 

II 

A 

•V 


9F42 P 0 0 A A 9F4E 


BCS 

; PS003 

; YES. 


9F44 P0A29F 


JSR 

SPACE 



9 F 4 7 E 0 0 A 


CPX 

A 10 

; >= io? 


9 F 4 9 6003 A 9F4E 


BCS 

: PS003 

; YES. 


9 F 4 b 2 0 A 29 F 


JSR 

SPACE 



9F4fc A25C 

: PS003 

LDX 

AL JNENO-DTA0 



9F50 20149E 


JSR 

DEC ASC 

; PRINT BINARY LINE A , 


9FF3 C6 


INY 


? LOOK AHEAD TC 1ST CHAR OF STATEMENT. 

9F54 C8 


INY 




9F5S A 9? 0 


LD A 

A 0 9 

} IS IT A SPACE? 


9F57 DIPS 


CMP 

(POINT) ,Y 



9F59 F 0 0 3 A 9F5E 


BEQ 

JPS005 

? YES. 


9F56 20A29F 


JSR 

SPACE 

? NO -- PUT SPACE BETWEEN LINE A 

AND STATEMENT. 

9F5E 86 

: PS005 

DEY 


? GET STATEMENT LENGTH. 


9FSF B 1 86 


LD A 

(POINT) , Y 



9F61 A A 


TaX 




9F62 CEFE02 


DEC 

DSPFLG 

? DISPLAY CONTROL CHARACTERS. 



9F65 C 6 
9F66 F l E 6 


:PS010 


INY 

LDA 


; PRINT STATEMENT BODY. 


(POINT) , Y 


* ) 


PILOT 

CD 

. 

X 

1 

1 

. STEWART 


9F69 

P08294 


JSR 

9 F6B 

CA 


DEX 

9F6C 

DOF 7 * 

9F65 

BNE 

PF6E 

EEF£02 


INC 

9 F 7 1 

60 


RTS 

°F 7 2 



0 

X 

CL 



? 




; NUL ACC 

• 


9F72 

A 0 0 0 

NUL ACC 

LDY 

9F7U 

A920 


LDA 

9F7b 

9188 


STA 

9F76 

8 A 8 A 


STY 

9F7 A 

C8 


INY 

9 F 7 b 

84 8 B 


STY 

9F7d 

60 


RTS 
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D1 :PILOT 


CHGT 

SPSOIO 

DSPFLG 


; BACK TO ZERO. 


V I 


; NUL ACC — SET THE ACCEPT BUFFER TO NULL (SINGLE SPACE) 


#0 

' 

( ACLN ) > Y 
ACLN+Z 

ACLN+3 


; SINGLE SPACE. 
? START INDEX. 

} END INDEX. 


1 : 
% > 
%- 


°F 7 E PROC 

; 

; A&RTCK -- BREAK KEY ABORT CHECK 


9 


9 F 7£ 

48 

A6RTCK 

PHA 


? 

(SEE 'XSYNC' ). 

9 F 7 F 

A5 1 1 


LDA 

BREAK 

• 

9 

OPERATOR ABORT? 

9 F 8 1 

D 0 0 7 *9F6A 


BNE 

: 4C090 

• 

9 

NO. 

PF83 

Coll 


DEC 

BREAK 

• 

9 

YES -- RESET FLAG, 

9F85 

A987 

S AC 0 05 

LDA 

A ABTERR 

9 

9 

STOP WITH STATUS CODE 

9 F B 7 

4C3A7A 


JMP 

PSTCP 




= 0000 


IF 

FALSE 



- 


SAC010 

LDA 

CONKEY 

• 

9 

ALTERNATE ABORT? 

- 



AND 

#STRTKY 

m 

9 

START KEY? 

- 



BEG 

SACO 90 

• 

9 

NO. 

m* 



LDA 

CONKEY 

• 

9 

YES -- RESET STATUS. 

m 



AND 

ASFF-STRTKY 



• 



STA 

CONKEY 






JMP 

S AC005 






ENDIF 




9F8 A 

68 

: AC090 

PLA 




9F88 

60 


RTS 




9F8C 



PROC 





; 

? GTLNNO -- GET LINE M FROM STORAGE LINE 


% 

i 

# 




# 

# 



PILOT 
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? CALLING SEQUENCE: 





; 

i 

'POINT 9 

POINTS TO 

STORAGE 

LINE 



; 

; 

JSR 

GTLNNO 





i 

; 

; 

'LINENO 
Y s 4 

' s binary 

LINE # 


RF8C 
9P8E 
9F90 
9F92 
9F93 
9F95 
Q F9 7 

A 0 0 3 
6196 
85DD 
C8 

31B6 
8 50C 
60 

GTLNNO 

LD Y 
LD A 
STA 
INY 
LDA 
STA 
RTS 

#3 

(POINT), Y 
LINENO+1 

(POINT ) , Y 
LINENO 

• 

9 

RE-INVERT ORDER. 

9F98 


? N£WL I 

PROC 

M -- ISSUE NEK* LINE SEQUENCE TO 'CHOT' 

9F98 
9 F 9 A 

A 99B 
4C9294 

NEWLIN 

LDA 

JMP 

#EOL 

CHOT 

• 

9 

NEWLINE * RETURN. 

9FRD 


} SPACE 

PROC 

CS) -- I 

SSUE SPACE(S) TO ' 

CHOT 9 

9F9Q 

9p9p 

A920 

208294 

SPACES 

LDA 

JSR 

U 9 9 

CHOT 


; TWO SPACES. 

9 F A 2 
9FA4 

A920 

4C6294 

SPACE 

LDA 

JFiP 

*' 9 

CHOT 


; ONE SPACE. 
} & RETURN, 


C RSN0P P -- C C0MPLICATED NOP TO UPDATE CURSOR INHIBIT/ENABLE STATE 
CALLING SEQUENCE; 

A = 0 TO ENABLE CURSOR, ELSE DISABLE CURSOR, 


9F A 7 8 D F 0 0 2 

9 F A A A 9 J C 
9FAC 208294 
9FAF A91D 
9FB 1 4CP294 


CRSNOP STA 
LD A 
JSR 
LD A 
JMP 


CRSINH 

8CUP 

CHOT 

FCDOWN 

cmot 


? SET CURSOR INHIBIT FLAG, 
; CURSOR UP ,,, 

? ... THEN DOWN ... 

; ... % RETURN. 


9PB4 


PPOC 
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? AUDCLR -- CLEAR AUDIO REGISTERS AND SELECTS 


9FB4 

w 

A903 AUDCLR 

LD A 

*$03 

9FBb 

8 D3202 

ST A 

SSKCTL 

9 F 39 

SDCFD2 

STA 

SKCTL 

9FBC 

A900 

LD A 

*0 

9FBE 

6D08D2 

STA 

AUDCTL 

9FC1 

A206 

LUX 

A AUREGS*2 

9FC3 

9DFED1 5 AC 0 1 0 

STA 

AUDF1«2,X 

9FCb 

9DFFD1 

STA 

AUDC1-2,X 

9FC9 

9 D 1 3 0 5 

STA 

AUDI 0R*2 , X 

9FCC 

9D1405 

STA 

AUDIOR-1 ,X 

9FCF 

CA 

DEX 


9FD0 

CA 

DEX 


9 F D 1 

DOFO A 9FC3 

BNE 

: AC010 


? MAGIC CONSTANT FROM D, CRANE, 27-AUG-79, 

? SET AUDIO TO 4 INDEPENDENT REGISTERS, 

i CLEAR ALL ACTIVE TONES. 

? CLEAR 'SO' SELECTS. 


9FD3 


60 


RTS 
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QR04 PROC 

f 

; EX P ARITHMETIC expression evaluator 


CALLING SEQUENCES 


'IN'LN' POINTS TO LINE TO BE EVALUATED 
Y r INDEX TO START OF EXPRESSION 

JSR EXP 


Y = INDEX TC END OF EXPRESSION + 1 
# EXPSTK'+0 & +1 s RESULT OF EVALUATION, 


9 F 04 

A9 0 0 

EXP 

LD A 

AO 

} 

9 F 06 

SD4E05 


STA 

ESTKP 




; ** * 

external 

ENTRY POINT *** 


9FD9 

2 0 1 4 A 0 

EXP RC 

JSR 

EXP V AL 

) 

9FQC 

20139F 

: EX030 

JSR 

SL8 

• 

t 

9F OF 

84 A 7 


STY 

TEMP2 

9 

9 

9FE1 

206E81 


JSR 

ATOM 

9 

9 

9FE4 

D02 1 A A 0 0 7 


BNE 

SEX080 

9 

r 

°FE6 

C940 


CMP 

ACiPR 


9FE8 

00 1 D A A 0 07 


BNE 

: EX080 

r 

9 FEA 

AE4E05 


LDX 

ESTKP 

9 

r 

9FED 

EOOE 


CPX 

aestksz 


9 fef 

F 0 1 9 A A 0 0 A 


0EQ 

EXP192 

r 

9 F F 1 

A586 


LD A 

POINT 


9FF3 

9593 


STA 

EXPSTK t X 


9F C 5 

A587 


LD A 

PQINT+1 


9FF7 

9594 


STA 

EXPSTK-U ,X 


9FF9 

E6 


I NX 



9FFA 

E8 


INX 



9FFB 

8E4E05 


ST X 

ESTKP 


9FFE 

201 4A0 


JSR 

EXPVAL 

9 

9 

A 0 0 1 

207CA0 


JSR 

SOP 

9 

9 

AO 0 4 

4CDC9F 


JMP 

:EX030 


A 0 0 7 

A 4 A 7 

sEXoeo 

LD Y 

TEMP2 


A 0 0 9 

60 


RTS 



AOO A 

A902 

EXP 1 92 

LD A 

FEXPERR 


AG OC 

4 C 3 A 7 A 

E X P 1 9 4 

JMP 

PSTGP 



INITIALIZE CPITICAL VARIABLES. 

CHECK FOR OPERAND & GET VALUE TO STACK. 

SKIP LEADING BLANKS. 

SAVE INDEX, 

CHECK FOR OPERATOR, 

INVALID ATOM, 

NOT AN operator, 

PUSH OPERATOR ROUTINE ADDR TO EXP STACK 
STACK FULL * 


CHECK FOR OPERAND & GET VALUE TO STACK 
OPERATE ON STACK DATA, 


A 0 0 F 


PROC 
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> 

7 

7 EXP V AL -- VALIDATE OPERAND & PUSH VALUE TO STACK > 

7 

? CALLING SEQUENCE: 

> > 

7 Y = INDEX TO 'INLN' 

7 




• 

9 

• 

J SR 

EXPVAL 



V > 

A 0 0 F 

A 9 0 0 

9 

EXPP 

LDA 

40 

• 

9 

EVALUATE EXPR IN PARENS. 


AO 1 1 

8Q4E05 


STA 

ESTKP 



♦ ' 

aou 

20139F 

expval 

JSR 

SLB 




AO 1 7 

A202 


LDX 

AUNTA8X 

7 

UNARY OPERATOR? 

s 

AO 19 

20A87C 


JSR 

SBCMAT 




AO 1 C 

DU1D A A 0 3 0 


BNE 

S EXO 1 0 

7 

NO. 


AO 1 E 

S A 


TX A 


• 

9 

YES. 

• ? 

A 0 1 F 

43 


PHA 


• 

SAVE OFFSET IN 'SBDTAB', 


AO 2 0 

20 1 4 A 0 


JSR 

EXPVAL 

• 

9 

*** RECURSIVE CALL *** 

fj 

A023 

68 


pla 


• 

9 

RESTORE OFFSET IN 'SBDTAB'. 


A 0 2 4 

A A 


TAX 




r 

A025 

BDAA80 


LDA 

S0DTA6,X 

} 

GET OPERATOR ROUTINE ADDRESS. 


A 0 28 

8D0E05 


STA 

SJUNP+1 




A 0 2 8 

BDAB80 


LDA 

SBDTAB+1 rX 



# 

A02E 

8D0P05 


STA 

SJUMP+2 




A 0 3 1 

AD4E05 


LDA 

ESTKP 

m 

> 

GET OFFSET TO RESULT. 

l 

A 0 34 

16 


CLC 





AO 35 

6911 


ADC 

AEXPSTK-DTA8-2 




A 0 3 7 

AA 


TAX 




# 

A 0 38 

4C0D05 


JMP 

S JUMP 

t 

UNARY ROUTINE & RETURN, 


A039 

B 1 8 0 

: EXO 1 0 

LDA 

(INLN1 ,Y 

• 

9 

RESTORE CHAR, 

# 

A 0 3 D 

C928 


CMP 

C ' 

• 

9 

LEFT PAREN? 


A03F 

DOOC A A04D 


BNE 

: EX020 

• 

9 

NO. 

• 

A 0 4 1 

C6 


INY 





A 0 4 2 

20099P 


JSR 

EXPRC 

• 

YES -- EVALUATE SUB-EXPRESSION. 

m 

A 0 4 5 

B 1 SO 


LDA 

( INLN) 9 Y 




A 0 47 

C929 


CMP 

#') ' 

• 

t 

MATCHING RIGHT RAREN? 


A 0 4 V 

DOBF a AOOA 


BNE 

EXP192 

m 

9 

NO -- ERROR. 

• 

A 0 4 6 

C 8 


INY 


• 

9 

YES -- SKIP OVER IT. 


A 0 4 C 

60 


RTS 




• 

A04D 

C93F 

SEX020 

CMP 

#'?' 

• 

9 

RANDOM NUMBER? 


A 0 4 F 

DOOD A A05E 


BNE 

: E X 0 3 0 

• 

9 

NO. 

• 

AOS 1 

AD0AD2 


LDA 

PKYRND 

• 

9 

YES -- GET RANDOM # FROM POKEY. 


A 054 

8568 


STA 

NUMBER 



# 

A05o 

A D 0 A D 2 


LDA 

PKYRND 




A059 

8509 


STA 

NUMBER+1 




A05B 

C 6 


INY 


% 

9 

SKIP OVER '?'. 

• 

A05C 

D009 A A067 


BNE 

! E X 0 4 0 

7 

(BRA) . 
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ao^e 

206E81 

IEX030 

J SR 

A TO w 



A 06 2 

D 0 A 9 A A 0 OC 


BNE 

E XP 1 9a 

1 

ERROR. 

A063 

2986 


AND 

pnur+nvar+bptr 

9 

NUMERIC VARIABLE 9 POINTER OR CONSTANT? 

A 065 

F 0 A 3 A A00A 


0EQ 

EXP l 92 

9 

NO -- ERROR. 

A 0 6 7 

AE4E05 

1 E X 09 0 

LUX 

ESTkP 

9 

RESULT TO STACK. 

A06 A 

EOOE 


CRX 

kESTKSZ 



A06C 

F09C a aooa 


8EQ 

E XP 1 92 

9 

STACK OVERFLOW. 

A06E 

A5B6 


LOA 

NUMBER 



A070 

9593 


STA 

EXPSTK , X 



A072 

A 58 9 


LOA 

NUM8ER+1 



A 0 7a 

959a 


STA 

EXPSTKfl ,X 



A 0 76 

E8 


I NX 




A 0 7 7 

E8 


I NX 




A u 78 

8E4E05 


ST X 

ESTKP 



A 0 76 

60 


RTS 





A07C PKOC 

; 

; SOP -- STACK OPERATE 
? 

? CALLING SEQUENCE: 


A 0 7C 

• 

9 

4592 SOP 

LDA 

EXEC 

; 

EXECUTE? 

A07E 

F01D A A09D 

BEQ 

: S0Q5O 

• 

9 

NO -- JUST REJUSTIFY THE STACK. 

A 0 8 0 

84 A 7 

STY 

TEMP2 



A 0 82 

ADA £ 05 

LDA 

ESTKF 

9 

9 

GET EXP STACK INDEX. 


= 0000 

IF 

DEBUG 





CMP 

#6 

9 

SEE IF STACK HAS AT LEAST 3 ENTRIES. 

• 


BCC 

5S0090 

• 

9 

NO — PROBLEM! 



ENDIF 




A085 

16 

CLC 


9 

9 

YES -- CONVERT STACK INDEX TO 'DTAB' 

A 0 86 

69! 1 

ADC 

aexpstk-dtab-? 



A 0 86 

48 

TAY 




A 0 59 

AA 

TAX 




A 0 8 A 

CA 

DEX 


9 

9 

INDEX TO OPERATOR PROCESSOR ADDRESS. 

A08B 

CA 

DEX 




A0 8C 

6580 

LDA 

0TAB,X 

9 

9 

GET OPERATE ROUTINE ADDRESS. 

A 08E 

8DOE05 

STA 

SJUMPtl 



A 0 9 1 

8581 

LDA 

DTA6M, X 



A 0 93 

6D0F05 

STA 

SJUMP42 



A 0 96 

CA 

DEX 


9 

f 

INDEX TO TARGET ENTRY. 

A 09 7 

CA 

DEX 




A 0 98 

200D05 

JSR 

SJUPF 

• 

9 

OPERATE ON DATA. 

4096 

A 4 A 7 

LDY 

TEMF2 




A09D 

36 

:S0050 SEC 


; f CLEAR BORROW). 

A09E 

AD4E05 

LDA 

ESTKP 

; ADJUST STACK INDEX 

A 0 A 1 

E9G4 

SBC 

*4 


AO A3 

8D4E05 

STA 

ESTKP 



INDEX. 
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• 

X 

1 

• 

STEWART 


D! : PILOT, 

AO A6 

60 

RTS 




= 0000 

IF 

DFBUG 


- 


! S0090 LD A 

*INTERR 

? INTERNAL BUG 

- 


JP.P 

FSTOP 




ENDIF 
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AO A7 


PHOC 

1EXP -- EVALUATE TEXT EXPRESSION 

Y = POINTER TO START OF TEXT FYPR IN MNLN'. 




r 

; 

JSR 

TEXF 





; 

BNE 

EXECUTE MODE 





• 

TEXP+2 

= 0 





7 

TEXP+3 

= END CF TEXT 

EXPRESSION. 



; 

; 

ThE EOL 

IS NOT PART 

OF THE 

RESULTANT TEXT. 

A 0 A 7 

A592 

7 

TEXP 

LD A 

EXEC 

• 

9 

EXECUTE MODE? 

AO A9 

0003 A AOAE 


BNE 

: TEO 05 

• 

9 

YES. 

AO AB 

4C1B9F 


JMP 

SCNEOL 

• 

9 

NO -- SCAN TO EOL & RETURN. 

A 0 A E 

A 90 0 

I TE 0 05 

LD A 

no 

m 

9 

INIT RESULT LENGTH COUNT ... 

A 0 8 0 

858F 


STA 

TELN+3 



A082 

8 56E 


STA 

TELN+2 

i 

... 8- STARTING INDEX. 

A034 

AD3005 


LD A 

CDEST 

• 

9 

SAVE 'CHQT' DESTINATION. 

A 0 R 7 

6D3105 


STA 

CDEST+1 



A 0 6 A 

A9FF 


LD A 

ASFF 

m 

9 

YES -- RE-ROUTE 'CHQT' OUTPUT 

A 08C 

8D3005 


STA 

CDEST 



A 06F 

p i 8 0 

: TEO 1 0 

LD A 

( INLN ) 9 Y 

a 

9 

GET A CHARACTER. 

A 0 C 1 

20F99E 


JSR 

CHKTRM 

9 

9 

STATEMENT TERMINATOR? 

A 0 C 4 

F05C A A 1 22 


BEQ 

1 TE400 

• 

9 

YES. 


A 0 C b C925 
A 0 C 8 F 0 1 3 A A ODD 

A 0 C A C940 
A 0 CC FOOF A A ODD 

AOCE C923 
A OD 0 F 0 00 A A 0 DD 


CMP 

6EQ 

CMP 

BEQ 

CMP 

BEQ 


: TE 1 0 0 


' 55 ' 


U 

STE100 

:TE100 


? SPECIAL NUMBER? 
} YES. 

} POINTER? 

; YES. 


; NUMERIC VARIABLE DELIMITER? 
; YES. 


A 0 02 

C924 


CMP 

#'$' 

• 

9 

A0D4 

F007 A AODD 


BEQ 

r TE 1 00 

• 

9 

A0D6 

C8 

: TE 020 

INY 



A0D7 

208294 


JSR 

CHOT 

• 

9 

A ODA 

4C9F A 0 


JMiP 

S TEO 1 0 


A 0 DO 

48 

5 TE 1 0 0 

PHA 


• 

9 

A ODE 

9 « 


T Y A 


m 

9 

A OOF 

4b 


PhA 



A 0 EO 

206E81 


JSR 

ATOM 

9 

9 

A 0 E3 

F 02 1 A A 1 06 


BEQ 

; TE220 

9 

9 

A 0E5 

68 

STE210 

PLA 


• 

9 

A0E6 

A6 


TAY 




? STRING VARIABLE DELIMITER? 
YES. 


; YES -- PRINT TEXT LITERAL. 


; GET VALUE. 

; O.K. 

; NOT ATOM - • RESTORE Y REG • • 


: TEBUF 0 . 


ini 
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D1 iPILOT, 

A 0 E 7 

C 6 


INY 


• 

9 

LOOK AHEAD. 

A 0E8 

6160 


LD A 

( INLN) r Y 

« 

9 

IS NEXT CHAR = DOUBLE GUCTE? 

A 0 E A 

C922 


CMP 

U* " ' 



AO EC 

D 0 1 4 A A 1 02 


BNE 

: TF2 1 6 

• 

9 

NO. 

AGEE 

66 


PLA 


% 

9 

YES -- FLUSH THE 

AOEF 

C 6 


INY 


• 

9 

GET NEXT CHARACTER IN LITERAL 

A 0 F 0 

R 1 8 0 

: TE2 1 2 

LD A 

(INLN)rY 



A0F2 

20F99E 


JSR 

CHKTRM 

• 

9 

STATEMENT TERMINATOR? 

A 0 F 5 

FC-2B A A 1 22 


BEQ 

:TE400 

9 

9 

YES. 

A OF? 

C6 


INY 




A 0 F 6 

C922 


CMP 


9 

9 

LITERAL TERMINATOR? 

AGFA 

F0C3 A AOBF 


BEQ 

STE010 

9 

9 

YES -- BACK TO NORMAL SCAN 

AO FC 

208294 


JSR 

CHOT 

t 

NOT PRINT LITERAL CHAR, 

AO F F 

4CF0A0 


JMP 

: TE2 12 



A 1 02 

86 

JTE216 

DEY 


• 

/ 

SET INDEX BACK. 

A 1 0 3 

66 


PLA 


• 

9 

... & CHARACTER. 

A 104 

DODO a A0D6 


BNE 

: TE020 

• 

9 

(BRA). 

A 1 06 

C910 

ITE220 

CMP 

# U S V A R 

9 

9 

UNDEFINED STPING? 

A 108 

FODB A A 0 E 5 


BEQ 

STE210 

9 

9 

YES -- PRINT LITERALLY, 

A 1 0 A 

C908 


CMP 

#S VAR 

? 

DEFINED STRING? 

A10C 

F 0 0 A A A 1 1 8 


BEQ 

: TE300 

• 

9 

YES -- PRINT VALUE. 



? NUMERIC DATA 




AIDE 

66 


PLA 


} 

NO -- MUST BE NUMERIC VALUE. 

A10F 

66 


PLA 


9 

9 

CLEAR STACK, 

A110 

A238 


LDX 

#NUMBER-DTAB 

• 

9 

VALUE OF NUMBER, 

Alt? 

20149E 


JSR 

DEC ASC 

9 

9 

CONVERT TO ASCII & OUTPUT. 

A115 

4 CP F A 0 


JMP 

: TEO 1 0 

9 

9 

CONTINUE. 



? STRING VARIABLE 



Alia 

66 

: 7E300 

PLA 


9 

9 

CLEAR THE STACK. 

A1 19 

68 


PLA 




All A 

A242 


LDX 

#dp-dtab 

• 

9 

INDEX TO STRING VALUE. 

A 11C 

209797 


JSR 

PRTSTG 



A 1 1 F 

4CBFA0 


JMP 

: TEO 1 0 



A 1 22 

AD3105 

: TE40 0 

LD A 

CDEST+1 

• 

9 

RESTORE # CHOT 9 DESTINATION. 

A 125 

80 3005 


STA 

CDEST 





; 

EXTERNAL 

ENTPY POINT FROM 

9 

XACCPT' *** 

A 1 28 

A68F 

TRA1LB 

LDX 

TELN+3 

9 

9 

EXAMINE LAST CHAR OF TEXP. 

A 1 2 A 

E48E 


CPX 

TELN+2 



A12C 

FOOC A A13A 


BEQ 

! TE480 

• 

9 

MULL RESULT. 


A12E 


BDFFBb 


LD A 


TEXBUF-lfX 


; GET LAST CHAP IN BUFFEP 
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A I 3 1 

C95F 

CMP 


; 

UNDERSCORE? 


A 1 33 

0005 A A 1 3 A 

8NE 

STE480 

• 

9 

NO. 


A 135 
A 137 

A 920 
9DFF80 

LD A 
STA 

r ' 

TEXdUF-1, X 

0 

9 

YES -- REPLACE WITH 

BLANK . 

A 1 3 A 

A 592 JTE460 

LDA 

EXEC 

) 

0 

9 

0 

9 

THE cc is being set 

OF THE 'EXEC' FLAG 
JSR TO 'STEP' USED 

TO REFLECT THE STATE 
BECAUSE EVERY SINGLE 
TO BE FOLLOWED BY A 


'LDA EXEC ' INSTRUCTION. THESE HAVE ALL BEEN 
"COMMENTED” OUT; WHEN WILL THIS ALL END? 


A 1 3C 


60 


RTS 
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D 1 ; P I LOT . 



• 

} HERE I 

• 

f 

N RESIDE 

THE LOWER LEVEL 

GRAPHICS ROUTINES FOP PILOT GRAPHI 

A 1 3 U 


t 

; GMODE 

; 

PROC 





-- GRAPHICS 'MODE ' SUBCOMMAND. 

A 1 3D 

20D49F 

GMODE 

JSR 

EXP 

i GET MODE #. 

Aiao 

A592 


LDA 

EXEC 

; EXECUTE MODE. 

*142 

F 026 A A 1 6 A 


BEQ 

: GM090 

? NO. 

Aiaa 

8 4 A 6 


STY 

XTEMP 


Aia6 

AO 0 0 


LDY 

80 

? SEE IF MODE IS 0-15. 

A 1/46 

A910 


LDA 

#16 


A 1 4 A 

A213 


LDX 

8EXPSTK-DTAB 


A14C 

200F9C 


JSR 

DCWCI 


A 1 4 F 

8 0 1 A A A16B 


BCS 

IGM092 

; NO -- MODE >=16. 

A 1 5 1 

A693 


l.DX 

EXPSTK 

J SEE IF ALLOWED AS GRAPHICS MODE, 

A 1 5 3 

BDE667 


LDA 

GCHARf X 

? WILL BE ZERO IF NOT ALLOWED. 

A 1 So 

F 0 1 3 A A16B 


BEQ 

:GM092 

? NOT AN ALLOWFD MODE. 

A 1 56 

AD5205 


LDA 

SPLTSC 

; SEE IF SPLIT DESIRED. 

A 1 58 

F 0 0 5 A A 1 62 


BEG 

:GM020 

} NO. 

A 15D 

30E687 


AND 

GCHAR, X 

} YES -- IS SPLIT ALLOWED? 

A 160 

F010 A A 1 72 


BEQ 

s GM094 

; NO -- ERROR, 

A 1 62 

8 t 3705 

: GM020 

STX 

GSMCDE 

; YES -- SAVE MODE. 

A 1 65 

201095 


JSR 

GSOPEN 

? RE-OPEN GRAPHICS SCREEN. 

A 1 6 8 

A4AB 


LDY 

XTEMP 


A 1 6 A 

60 

:GM090 

RTS 



A 1 68 

A922 

: GM092 

LDA 

#MODERR 

? ILLEGAL GRAPHICS MODE. 

A 1 6D 

A4A6 


LDY 

XTEMP 


A 1 6 F 

4C3A7A 


JMP 

PSTOP 


A 1 72 


GSP 0 94 




A 1 72 

A92 1 

5 GM094 

LDA 

8SP1ERR 

; SPLIT SCREEN NOT ALLOWED. 

A 1 7 4 

A4A6 


LDY 

XTEMP 


A 1 76 

4 C 3 A 7 A 


JMP 

P STOP 


A1 79 


• 

PROC 





; GFULL 
? 

-- GRAPHICS 'FULL' SUBCOMMAND. 

A 1 7 9 

A 5 9 2 

GFULL 

LDA 

EXEC 

EXECUTE MODE? 

A 1 70 

F 0 1 5 A A 1 92 


BEQ 

: GF090 

; no. 

A 1 70 

A5FF 


LDA 

RUN 

} RUN MODE? 

A 1 7 F 

F 0 1 2 A A 1 9 3 


BEQ 

: GF092 

; NQ -- ERROR, 
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01 * PILOT, 


• MM AD4505 

LDA 

SGLSTF 

1 

SINGLE STOP? 

A184 00 OD A A 1 93 BNE 

J GF 092 

; 

YES -- ERROR, 

A 1 8 6 A 9 0 0 

LOA 

»0 

; 

full screen 

AIRS 8D5205 

STA 

SPLTSC 



A 1 S B 34A8 

STY 

XTEMP 



A 1 S 0 201095 

JSR 

GSOPEN 

; 

OPEN SCREEN. 

A 1 9 0 A 9 A B 

LDY 

XTEMP 



A 1 92 60 

: GF090 RTS 




A 1 93 A 963 

• G F 092 LOA 

ANRCERR 



A 1 9 5 4C3A7A 

JMP 

PSTCP 



A 1 9 S 

PROC 

• 





? GSPLIT -- 

• 

9 

GRAPHICS 'SPLIT' 

SUBCOMMAND. 

A 1 90 A 592 

GSPLIT LDA 

EXEC 

• 

9 

EXECUTE MODE? 

A 1 9 A F 0 1 4 A A1B0 

BEG 

!GS090 

• 

9 

NO. 

A19C A 9 1 0 

LDA 

ASPLIT 

• 

9 

SPLIT SCPEEN. 

A 1 9£ 605205 

STA 

SPLTSC 



AiAi At 3705 

LDX 

GSN'ODE 

; 

SEE IF SPLIT ALLOWED. 

A 1 A 4 3DE687 

AMD 

GCHAR, X 



A 1 a 7 F OC 9 A A 1 72 

BEQ 

GSP094 

• 

9 

NO -- ERROR, 

A 1 A 9 84 A B 

STY 

XTEMP 



A 1 A B 203 095 

JSR 

GSOPEN 

• 

9 

YES -- OPEN SCPEEN. 

A 1 A E A M A 8 

LDY 

XTEMP 



A 1 8 0 60 

.•GS090 RTS 




A 1 8 1 

PROC 

# 





; 'DRAWTO', ' 

9 

FILLTO' & 'GOTO' 

SU8- 

COMMAND PROCESSORS. 

A 1 9 1 A912 

GFILTO LDA 

# P I L L T 0 

? 

PEN DOWN. 

A 1 B3 0006 A A 1 8B 

BNE 

; GG005 

J 

(BRA). 

A I 85 A 9 0 A 

GDRWTQ LDA 

adrawto 

• 

9 

PEN DOWN, 

A 1 8 7 0002 A A 1 B 0 

BNE 

; GG005 

• 

9 

(BRA) . 

A 1 09 A 906 

GGOTO LDA 

A GOTO 

• 

9 

PEN UP. 

A109 8DD405 

SGG005 STA 

GROPR 

• 

9 

SET PEN POSITION. 

A 1 8 £ 20D49F 

JSR 

EXP 

• 

9 

GET X-COORDINATE. 

A 1 C 1 A592 

LDA 

EXEC 

• 

9 

EXECUTF MODE? 

A1C3 F008 A A 1 CD 

BEQ 

: GGO 1 0 

? 

NO. 

A 1 C 5 A 593 

LOA 

ExPSTK 

; 

YES -- UPDATE X. 

A 1 C 7 85E6 

STA 

GXNEW 




PILOT 
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A 1 C9 

A594 


LDA 

ExPSTK+l 



A 1 CB 

85E7 


ST A 

GXNEWtl 



A 1 CD 

2 0 0 7 9 F 

: GGO 1 0 

JSR 

SKPSEF 

• 

f 

SKIP OPERAND SEPARATOR. 

A 1 DO 

20D49F 


J SR 

EXP 

• 

9 

GET Y-CQORDINATE. 

A 1 D 3 

A 59 2 


LDA 

EXEC 

) 

EXECUTE MODE? 

A 1 D5 

Foil A A 1E8 


8EQ 

! GG090 

; 

NO. 

A 1 D 7 

A593 


LDA 

EXPSTK 

? 

YES -- UPDATE Y, 

A 1 09 

85E9 


STA 

GY NEW 



A 1 DB 

A594 


LDA 

EXPSTK+1 



A IDO 

85EA 


STA 

GYNEW+1 





} *** 

EXTERNAL 

ENTRY POINT 

FROM ' 

GHOME 9 **★ 

A 1 DF 

A900 

GGT030 

LDA 

AO 

• 

f 

CLEAR FRACTIONAL PORTION OF X & Y 

A1E1 

85E8 


STA 

GXNEW+2 



A 1 E3 

85EB 


STA 

GYNEW+2 



A 1 F5 

2 0 7 A A 6 


JSR 

GMQVE 

• 

f 

NOW EFFECT MOVE. 

A 1 E8 


GG0090 





A1E6 


GTR090 





A l E3 


GTT090 





A 1 E6 

60 

SGG090 

RTS 


• 

9 

RETURN, 


A 1 E9 


PROC 




A 1 F9 

20D49F 

GTRNTO JSR 

EXP 

• 

9 

GET POLAR ANGLE, 

A 1 FC 

A592 

LDA 

EXEC 

; 

EXECUTE MODE? 

A1E£ 

F0F6 A A 1 E8 

BE8 

GTT090 

• 

9 

NO. 

A 1 F 0 

A593 

LDA 

EXPSTK 

} 

YES -- UPDATE POLAR ANGLE. 

A1F2 

85F2 

STA 

THETA 



A1F4 

A 594 

LDA 

EXP8TK+ 1 



A 1 Ffe 

85F3 

STA 

theta+i 





A1P6 4C96AB 


JMP MQD36Q 


; MODULO 360 & RETURN 




A1F8 



PROC 




A 1 *=d 

A 9 0 9 

GBK 

LDA 

# D R A W 

; 

BK N = FD-N. 

A 1 FO 

8DD405 


STA 

GROPR 



A200 

20D49F 


JSR 

EXP 

• 

9 

GET MAGNITUDE OF MOVE 

A203 

A213 


LDX 

AEXPSTK-DTA0 

• 

9 

NEGATE IT. 

A205 

20F19C 


JSP 

DNFGI 



A208 

4C1BA2 


JMP 

l GGO 10 

• 

9 

GO TO COMMON CODE. 



A 2 0 B A9 1 1 GFIL LD A 

A20D DO Ob A A2 1 5 8NE 


#f ILL 
JGG005 


PEN DOWN 


A20F 

A211 

A909 

DO 02 A A2 1 5 

GDRW 

LDA 

BNE 

#QR A W 
; GG005 

; PEN DOWN. 

# 

A213 

A 9 0 5 

GGO 

LDA 

AGO 

; PEN UP. 
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4215 

4218 

800405 

20D49F 

:GG005 

STA 

JSR 

GROPR 

EXP 

4218 
42 ID 

A5R2 

P0C9 A A 1 ES 

: GGO 1 0 

LDA 

BEG 

exec 

GGOOQO 

421 F 
A222 

203242 
2 0 7 A A b 


JSR 

JSR 

CALDEL 
G^O v F 

4225 

A226 

ADC505 

F 0 0 7 *4231 


LDA 

BEQ 

RBTON 

!GG090 


* 4224 84AB 


STY 

XTEMP 

A22C 20D7B3 


JSR 

RGO 

A22F 4448 


LDY 

XTEMP 

4231 60 

:GG09Q 

RTS 


A232 4901 

CALDEL 

LOA 

41 

4234 203640 


JSR 

SINVAL 

4237 POFfcAD 


JSR 

TMULT 

A23A 4269 


LDX 

4GYNEW-DTAB 

A23C 2044) AE 


JSR 

taddi 

A23F 4900 


LDA 

40 

A241 203640 


JSR 

SINVAL 

4244 20F6AD 


JSR 

TMULT 

A247 4266 


LUX 

4GXNEW-DTAB 

4249 4C44AE 


JMP 

taddi 

424C 


PROC 


A24C 20D49F 

glt 

JSR 

exp 

A24F A213 


LDX 

4EXPSTK-DTAB 

A251 20F19C 


JS« 

DNEGI 

4254 4C54A2 


JMP 

SGT010 

4257 20D49P 

GTRN 

JSR 

EXP 

4254 4592 

;GTQ10 

LDA 

EXEC 

A25C F 0 8 A *AiE8 


BEQ 

GTR090 

A25E 84 AB 


STY 

XTEMP 

A 26 0 A272 


LDX 

4THET 4-DTAB 

A262 4013 


LDY 

4EXPSTK-DTAB 

A264 20329C 


JSR 

DADDI 

A267 2096 AB 


JSR 

MQD36 0 

A26 A ADC505 


LDA 

RBTON 

A26D F003 A A272 


BEQ 

: GT090 

A26F 20F963 


JSR 

RTURN 

A272 A4A6 

SGT090 

LDY 

XTEMP 

A274 60 


RTS 



A275 


PROC 
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01 :PIL0T, 


? SET PEN POSITION, 

; GET MAGNITUDE OF MOVE, 

; EXECUTE MODE? 

; NO. 

; CALCULATE GXNEW & GYNEW. 
? N 0 iN EFFECT MOVE, 

; IS ROBOT TURTLE ON? 

; no. 

; SAVE INDEX, 

? MOVE ROBOT ALSO. 

} RESTORE INDEX. 


? COS (THETA) = SINCTHETA + 90) . 
r GYNEW s G Y N E W + (<EXP> * CGS(THETA)) 


; GXNEW s GXNEW + ( < E X P > ★ SIN(THETA)) 


? LT N : RT -N , 


? GO TO COMMON CODE. 

; POLAR ANGLE DELTA THETA. 
; EXECUTE MODE? 

; no. 

? YES -- SAVE INDEX. 

? THETA = THETA + DELTA. 


? MODULO 360, 

? IS ROBOT TURTLE ON? 

; no. 

; MOVE ROBOT ALSO. 
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} 

; GPEN -- GRAPHICS 'PEN ' SUBCOMMAND 


A275 

20P6A4 

GPEN 

J SR 

CLPMAT 

A276 

D02L A A2A8 


BNE 

; GP 099 

A27A 

8DB605 


STA 

PENCOL 

A27P 

AS92 


LDA 

EXEC 

A27F 

F 026 A A2 A7 


BEQ 

! GP090 

A281 

6010 A A293 


BCS 

SGP040 

A283 

8 A 


T X A 


A 284 

1006 A A28E 


BPL 

: GP030 

A28b 

ADB805 


LDA 

PENCOL 

A289 

20DEA4 


JSR 

CASSGN 

A28C 

DO 1 A A A2A6 


BNE 

SGP099 

A 2 8 E 

8 A 

! GP030 

T X A 



= 0000 


IF 

FALSE 

m 



EQR 

PEN 

m 



AND 

A$7 F 

- 



EQR 

PEN 




ENDIF 


A28F 

8D1305 


STA 

PEN 

A292 

60 


RTS 


A293 

8 A 

: GP040 

TX A 


A294 

F0F6 A A28E 


BEQ 

: GP030 

A296 

1007 A A29F 


BPL 

:GP050 

A298 

OD 1 305 


ORA 

PEN 

A 29 6 

8D1305 


STA 

PEN 

A29E 

60 


RTS 


A2 Q F 

AD 1 3 05 

: 6P050 

LDA 

PEN 

A2A2 

297 p 


AND 

PSFF-PCUP 

A2 A 4 

8D1305 


STA 

PEN 

A2A 7 

60 

: GP090 

RTS 


A2A6 

4C3A7A 

: GP099 

JMP 

P STOP 

A2Ab 

A592 

GPU 

LDA 

EXEC 

A2AD 

F0F6 A A2A7 


BEQ 

: GP090 

A2 A F 

A28 0 


LDX 

APCUP 

A2B1 

4C93A2 


JMP 

:GP040 

A2B4 

A592 

GPD 

LDA 

EXEC 

A^Bb 

FOEF A A 2 A 7 


BEQ 

JGP090 

A 286 

A24 0 


LDX 

APCDN 

A28 A 

4 C 9 3 A 2 


JMP 

:GP040 


SEE IF COLOR MATCH, 

NO -- ERROR. 

SAVE COLOR RFG I STEP VALUE. 

EXECUTE MODE? 

NO. 

YES -- JIF 'UP', 'DOWN ' OR 'ERASE'. 

IS COLOR ALREADY AVAILABLE? 

YES. 

NO -- FIND VACANT SLOT FOR NEK COLOR. 
NO FREE SLOTS. 

MERGE PEN UP/DOWN STATUS KITH ... 

... NEK PIXEL VALUE. 


'ERASE'. 

'DOWN'. 

'UP'. 

; 'DOWN'. 


; PEN UP, 

? PEN DOWN. 


PILOT 
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D 1 * P I LOT , 

42Bi> A592 

GPE LD A 

EXFC 

; PEN ERASE. 

A2PF F OF 6 A A2A 7 

BEQ 

i GP090 


A2CI A200 

LDX 

AO 


A2C3 «C93A2 

JMP 

; GP040 


A2C6 

PROC 

; 

? GbACK -- GR 
; 

APHICS 'BACKGROUND ' SUBCOMMAND 

A2Cb 2096A4 

GBACK JSR 

CLRNAT 

J SEE IF COLOR MATCH. 

A2C9 D014 *A2DF 

BNE 

:GB099 

? NO -- ERROR. 

A2Cb POlO A A20D 

BCS 

: GB092 

; JIF 'UP', 'DOWN' OR 'ERASE', 

A2CC 80P605 

STA 

PENCCL 

; YES -- SAVE COLOR VALUE. 

A2P0 A 592 

LD A 

FXEC 

? EXECUTE MODE? 

A2H2 F 0 0 8 *A2DC 

BEQ 

! GB 0 9 0 

t NO. 

A2DA A200 

LDX 

AO 

} INDEX FOR BACKGROUND. 

A206 AD6S05 

LD A 

fencol 

; COLOR REGISTER VALUE, 

A2D9 20F7A4 

JSR 

SFTCLR 

? SET 'PNCLRS ' AND COLOR REGISTER. 

A20C 60 
A2DD A902 

: GB090 RTS 
: GB092 LD A 

A IMF ERR 

} OPERAND ERROR. 

A2DF 4C3A7A 

: GB099 JMP 

PSTCP 


A2E2 

PROC 

• 

9 

; GCHNGE -- GRAPHICS 'CHANGE 

• 

9 

' SUBCOMMAND 

A2E2 2096A4 

GCHNGE JSR 

CLRMAT 

; GET "FROM" OPERAND, 

A2E5 0030 A A 3 1 7 

BNE 

! GC099 

? ERROR. 

A2F7 P023 A A30C 

BCS 

:GC092 

? 'UP', 'DOWN' OR 'ERASE' INVALID. 

A2E9 A 592 

LD A 

EXEC 

; EXECUTE MODE? 

A2E6 F003 A A2F 0 

BEQ 

: GC02G 

? NO. 

A 2 ED 8 A 

TX A 


} SEE IF "FROM" COLOR EXISTS. 

A 2 EE 3 0 3 C A A30C 

BMI 

: GC 0 92 

; NO -- ERROR. 

A2F0 8 1 B 705 

GC020 STX 

PENNUM 

? YES -- SAVE PEN NUMBER, 

2F3 20079F 

JSR 

SKPSFP 


2F6 2096 A<^ 

JSR 

CLRMAT 

? GET "TO" COLOR OPERAND. 

2F9 DO 1 C A A3 1 7 

BNE 

J GC099 

? ERROR. 

A 2FB HOOF A A30C 

BCS 

: G C 0 9 2 

; 'UP', 'DOWN' OR 'ERASE' INVALID. 

A2FP ECFF 

CHX 

ASFF 

; CHECK FOR DOUBLE ASSIGN AFTER CHG 
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ApFp 

0010 A A 3 1 1 


BNE 

: GC094 

; double assign -- error. 

A3 0 1 
A303 

A692 

FOOfe A A30B 


LUX 

BEQ 

EXEC 
; GC090 

; EXECUTE MODE? 
? NO. 

A 30 5 
A308 

AER705 

20F7A4 


LDX 

JSR 

PENNUM 

SETCLR 

? GET PEN NUMBER, 

; SET 'PNCLRS' AND COLOR REGISTER 

A306 

60 

SGC090 

RTS 



A30C 

AiOt 

A902 

4C3A7A 

SGC092 

LDA 

JMP 

#IMFERR 

PSTCP 

; IMV/ALID OPERAND. 

A3 1 1 
A3 1 3 

A592 

F 0 F 6 A A30B 

• GC 094 

LD A 
BEQ 

EXEC 
: GC090 

; NO PROBLEM IF NOT EXECUTE, 

A3 1 5 

A926 


LDA 

adcaerr 

? DOUBLE ASSIGN, 

A3 17 

4C3A7A 

: GC099 

JMP 

PSTCP 


A3 1 A 


• 

PROC 





r 

? GSH A DE m m 

• 

GRAPHICS 'SHADE ' 

SUBCOMMAND, 

A3 1 A 
A 3 1 D 

2096A4 
0031 A A 3 5 0 

r 

GSHADE 

JSR 

BNE 

CLRMAT 
! GS099 

; MATCH OPERAND. 
; NO MATCH, 

A 3 1 F 

B 02 A A A34B 


BCS 

: GS092 

? 'UP', 'DOWN' OR 'ERASE'. 

A3? 1 
A 3? A 
A 3 ?6 

BOBS 05 
A592 

F022 A A 3 4 A 


STA 

LDA 

BEQ 

PENCQL 
EXEC 
* GS090 

; SAVE PEN COLOR, 
; EXECUTE MODE? 

; no. 

A328 

A329 

8 A 

1006 A A333 


TXA 

BPL 

: GS030 

? COLOR ASSIGNED. 

*326 

A32E 

A331 

AD8805 

20DEA4 

DO 1 D A A350 


LDA 

JSR 

BNE 

PENCOL 
CASSGN 
; GS099 

; COLOR NUT ASSIGNED -- DO SO. 
i NO FREE SLOT. 

A3 3 3 

8E90O5 

;GS030 

STX 

FCGLOR 

? SAVE FILL COLOR. 

A3 36 
A 3 39 

205EAC 
BOOF A A34A 


JSR 

BCS 

GREAD 
! GS090 

; CHECK FOR IN BOUNDS. 

; TURTLE OUT OF BOUNDS. 

A338 

A330 

A340 

A342 

A345 

A348 

8 aAB 
2098 A F 
A03E 
20FFA6 
209FAA 

A 4 A 0 


STY 
JSP 
LD Y 
JSR 
JSR 
LD Y 

XTENP 

FLOOD 

3GX1-DTAB 

SETCUR 

CNVRT 

X TEMP 

? SHADE THE AREA. 

; RESTORE VISIBLE TURTLE TO PROPER 

A 3 4 A 

60 

JGS090 

RTS 



A34b 

A34C 

8 A 

F0E5 A A 333 

! GS092 

TXA 

BEQ 

! GS030 

? 'ERASE' OK. 
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D1 ! PILOT . 

AiAfc 

4902 


LDA 

A IMPFRR 


A3S0 

A353 

AC3A7A 

: GS099 

JMP 

PROC 

PSTOP 



; 

) G/vALL -- aall subcommand processor. 
; 


A353 4212 

GfcALl 

LD X 

* WL T AS X 

? 

' NONE ' ? 

A355 20467C 


JSR 

SBCPAT 



A 356 DOOD A A367 


B E 

: GW01 o 

; 

NO. 

A 3 5 A A592 


LDA 

EXEC 

} 

EXECUTE MODE? 

A35C F 0 0 6 A A 366 


BEG 

: GW009 

• 

9 

NO. 

A35E A 9 0 0 


LDA 

AO 

? 

YES -- CLEAR WALLS. 

A 36 0 8DCD05 


STA 

MLLS 



A363 8DCE05 


STA 

WALLS+1 



A 3 6 6 6 0 

: GW009 

RTS 




A367 209&A4 

: GVvo l o 

JSR 

CLRMAT 

• 

9 

PEN/COLOR SELECTION? 

A 36 A D020 a A38C 


BNE 

:GW092 

• 

9 

NO. 

A 3 6 C 80 1 E A A 38C 


PCS 

: GW092 

• 

9 

YES -- JIF 'UP', 'DOWN' OR 'ERASE' 

A36E 4592 


LDA 

EXEC 

a 

9 

EXECUTE MODE? 

4370 F 0 1 9 A A38B 


BEG 

: GA090 

• 

9 

NO. 

A372 6 A 


TX A 




A3 73 3017 a A38C 


8M I 

:GW092 

• 

9 

COLOR NOT ASSIGNED TO A PEN. 

A 3 7 S F 0 1 5 A A 38C 


BEQ 

:GW092 

m 

9 

BACKGROUND CAN'T BE A WALL. 

4377 OA 


ASL 

A 



A373 AA 


TAX 




4379 BD3EAC 


LDA 

WMASK, X 



A 3 7C 00CD05 


ORA 

WALLS 



A37F 8DC005 


SfA 

WALLS 



A382 B03FAC 


LDA 

WMASK+1 ,X 



4385 0DCE05 


ORA 

WALLS+1 



A3S3 8DCE05 


STA 

WALLS+1 



436a 60 

:GW09Q 

RTS 




A38C 4902 

:GW092 

LDA 

AIMPERR 



A38E 4C3A7A 


JMP 

PSTCP 




391 PRQC 

? 

? GEXIT -- GRAPHICS 'QUIT' SUBCOMMAND. 


A 3 9 1 A 5 9? G E X 1 T LD A EXEC 

A3<53 F 0 0 A a A39F BEQ :GE090 


EXECUTE MODE? 
MO. 
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A395 

84A6 

STY 

XTEMP 



A 39 7 

207483 

JSR 

R8T0FF 

• 

9 

'ROBOT TURTLE' OFF. 

A 39 A 

2 0 F 4 9 4 

JSR 

TXOFEN 

• 

9 

OPEN TEXT MODE SCREEN. 

A 3 9 0 

A4A6 

LDY 

XTEMP 



A39F 


GHM090 




A 39 F 


GCL090 




A39F 

60 

SGE090 RTS 




A 3 A 0 


PROC 

• 






? GCLEAR -- 

• 

GRAPHICS 'CLEAR 

' SUBCOMMAND. 



9 

? *** CALLED 

BY 'XRUN' TOO 

*** 


A 3 A 0 

A592 

GCLEAR LDA 

EXEC 

• 

9 

EXECUTE MODE? 

A3A2 

F 0 F 6 A A39F 

8EQ 

GCL090 

• 

9 

NO, 

A 3 A 4 

A 9 0 0 

LDA 

*0 

? 

TO AVOID ERROR $80 IF CURSOR AT LOWER 

A 3 A 6 

8554 

STA 

ROWCRS 

• 

9 

... RIGHT CORNER OF SCREEN. 

A3 AQ 

A97D 

LDA 

#CLE Afi 

• 

9 

YES -- CLEAR GRAPHICS SCREEN ... 

A 3 A A 

4C8097 

JMP 

TOUT 

* 

9 

... & RETURN, 

A3 AD 


PROC 

• 






; GCLRPN -- 

• 

GRAPH IC3 'CLEARPENS'. 


A3 AD 

A592 

9 

GCLRPN LDA 

EXEC 

• 

9 

EXECUTE MODE? 

A 3 A F 

F OF E A A39F 

8EQ 

GCL090 

? 

NO, 

A 38 1 

A 9 0 1 

LDA 

m 

• 

9 

YES -- CLEAR PEN SELECTS. 

A393 

8D8A05 

STA 

NXTCLR 



A 386 

60 

RTS 




A307 


PROC 






; GNOME -- TURTLE HOVE 



A387 

A592 

GNOME LDA 

EXEC 

• 

9 

EXECUTE MODE? 

A3B9 

F0E4 A A39F 

8EQ 

GHM090 

• 

9 

NO. 

A 38B 

A900 

LOA 

#0 

• 

9 

YES -- SET TURTLE X ft Y TO ZERO. 

A36D 

85E6 

STA 

GXNEW 



A3BF 

85E 7 

STA 

G X N £ W + 1 



A3C1 

85E9 

STA 

GYNEW 



A3C3 

85E A 

STA 

GYNEW+1 



A 3C5 

A906 

LDA 

4G0T0 



A3C7 

8DD405 

STA 

GROPR 

• 

9 

GOTO TYPE, 

A 3C A 

4CDFA1 

JMP 

GGT030 



A3CD 


PROC 






? GNORTH -- 

TURTLE NORTH 



A3C0 

A592 

GNORTH LDA 

EXEC 

} 

EXECUTE MODE? 

A3CF 

F 0 0 9 a A30A 

BE Q 

:GN090 

• 

9 

NO r • 
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A301 A 9 0 0 


LOA 

40 

1 

YES -- SET THETA TO ZERO. 

A 3 03 S5F2 


sta 

theta 



A3D5 9SF3 


ST A 

theta+i 



A3 07 2 0 96 A 8 


JSR 

R 003 6 0 



A30A 60 

:&N090 RTS 




A3O0 


PROC 





? GEOGE -- ' 

t 

EDGE ' SUBCOMMAND 



A3Db A20E 

GEOGE 

LDX 

4EDTABX 

? 

'FREE', 'HALT', WRAP', OR 'BOUNCE 

A 300 20A87C 


JSR 

SBCMAT 



A3E0 0016 A A3F8 


BNE 

:GE099 

• 

9 

NO MATCH, 

A3E2 A 592 


LOA 

EXEC 

• 

9 

EXECUTE MODE? 

A3E4 Foil A A3F7 


8£Q 

JGE090 

• 

9 

NO. 

A3E6 8E5E05 


STX 

EDGRUL 

t 

YES -- SET RULE SELECT. 

A3E9 EO 08 


CPX 

4EFREE 

f 

RULE = FREE? 

A3FB FOOA A A3F7 


BEQ 

: GE090 

• 

9 

YES. 

A3E0 A26C 


LDX 

4GX-0TAB 

• 

9 

TURTLE IN SCREEN BOUNDS? 

A3EF 200DA8 


•JSR 

INTEST 



A3F2 F 0 03 A A3 F 7 


BEQ 

: GE090 

m 

9 

YES. 

A3F4 2007 A3 


JSR 

GNOME 

• 

9 

NO -- SEND TURTLE HOME. 

A 3 F 7 60 

: GE090 

RTS 




A3F8 4C 3 A 7A 

! GE099 

JMP 

PSTCP 



A3Fb 


PROC 





; GTURTL -- TURTLE ON/OFF 



A3FB A2 0 A 

GTURTL 

LDX 

*ONOFFX 

• 

9 

EXPECT 'ON' OR 'OFF' 

A3FD 20AB7C 


JSR 

SBCMAT 



4400 DO 1 4 *4416 


BNE 

: GT 1 0 0 

• 

9 

NO MATCH - SEE IF COLOR. 

A 402 4592 


LOA 

EXEC 

• 

9 

EXECUTE MODE? 

A 404 FOOA *4410 


BEQ 

I GT090 

• 

9 

NO. 

A 4 0 6 6E4R05 

! 6 T 0 2 0 

STX 

TRTLON 

• 

9 

YES -- SET TURTLE FLAG. 

4409 8446 


STY 

XTEMP 

• 

9 

SAVE INDEX. 

A 4 0 1? 200CA6 


JSR 

TRONOF 

# 

9 

DEAL WITH TURTLE REP. 

440E 4 4 4 B 


LDY 

XTEMP 

• 

9 

RESTORE INDEX. 

A4 1 0 60 

:GT090 

RTS 




411 4902 

: GT092 

IDA 

PIMPERR 



413 4C3A7A 

: GT 099 

JMP 

PSTCP 



4416 209644 

:GT1 00 

JSR 

CLRMAT 

• 

9 

COLOR SELECTION? 

4419 DO F8 *4413 


BNE 

: GT099 

• 

9 

NO -- ERROR. 

4410 B 0 F4 *4411 


ecs 

SGT092 

* 

9 

J1F 'UF', 'DOWN', OR 'ERASE', 
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A410 

A 692 

LDX 

EXEC 

• 

r 

EXECUTE MODE? 


A41 F 

FOEF A A 4 1 0 

BEQ 

J GT09 0 

• 

9 

NO. 

• 

A A? 1 

8DC405 

STA 

TRTCOL 

9 

9 

YES -- UPDATE TURTLE COLOR. 


*424 

DOEO a A406 

BNE 

: GT020 

; 

C BR A 5 WITH X <> 0, 

1 

A426 


PROC 

• 




t 



r 

? XSETP -- ' 

SETPEN ' COMMAND 

PROCESSOR 




? XSETL -- ' 
• 

SETLET ' COMMAND 

PROCESSOR 

# 

A426 

F 0 1 2 A A43A 

XSETL BEQ 

:SP010 

? 

SYNTAX SCAN ONLY. 

# 

A428 

2CBE96 

JSR 

TSTMOD 

• 

f 

LETTERS MEDIUM OR LARGE? 


A42B 

C902 

CMP 

ATXML 




A42D 

D064 A A493 

BNE 

J SP094 

• 

9 

NO -- ERROR, 

• 

A42F 

F 0 09 A A43 A 

PEG 

: SPO 1 0 

} 

C8RA) TO COMMON CODE. 


A43 1 

F 0 0 7 A A 4 3 A 

XSETP BEG 

JSP010 

9 

9 

SYNTAX SCAN ONLY. 

« 

A433 

200696 

JSR 

TSTMOD 

} 

GRAPHICS MODE? 


A 4 36 

290C 

AND 

FGRSS+GRFS 



• 

A436 

F 059 A A493 

BEQ 

: S P 0 9 4 

• 

9 

NO — ERROR. 


A 43 A 

20BDA4 

:SP010 JSR 

CLM040 

9 

9 

GET PEN NUMBER. 

• 

A43D 

D050 A A48F 

BNE 

: SP090 

9 

9 

ERROR. 


A 4 3 F 

666705 

STX 

PENNUM 

• 

9 

SAVE PEN NUMBER. 

• 

A 44 2 

20C79F 

JSR 

SKPSEP 

) 

SEE IF ALPHA •- IF SO CALL CLRMAT 


A 4 4 5 

P 1 8 0 

LDA 

C I NLN ) r Y 



• 

A 4 4 7 

20919£ 

JSR 

CLETTR 

? 

ALPHA CHARACTER? 


A4^A 

BOOD A A 459 

BCS 

SSP012 

• 

9 

NO -- SHOULD BE NEXP. 

• 

A44C 

2096A4 

JSR 

CLRMAT 

9 

9 

YES -- SEE IF COLOR NAME? 


A44F 

D 0 3 E a A48F 

BNE 

l 3P090 

9 

9 

NO -- ERROR, 


A 45 1 

B 0 3 D a A490 

BCS 

:SP092 

9 

f 

NO -- 'UP % 'DOWN' OR 'ERASE'. 

m 

A453 

A692 

LDX 

EXEC 

; 

EXECUTE MODE? 


A455 

F 036 a A48F 

BEG 

! SP090 

• 

9 

NO, 

# 

A, 457 

902E a A487 

BCC 

:SPQ30 

• 

9 

VALID COLOR. 

• 

A459 

20D49F 

SSP012 JSR 

EXP 

• 

9 

GET HUE VALUE, 


A 4 5 C 

A 592 

LDA 

EXEC 

• 

9 

EXECUTE MODE? 


A 45£ 

F010 A A470 

BEG 

ISP020 

9 

9 

NO. 

# 

A 4 6 0 

A 594 

LDA 

EXPSTK+1 




A462 

D02C A A490 

BNE 

SSP092 

; 

OUT OF RANGE. 

# 

A464 

A593 

LDA 

EXPSTK 




ETC. 



4 


I 


I 


I 

I 


I 


\ 

) 


♦ • 


i 

I 

f 
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01 JPILOT, 

A 466 C910 


CNP 

8310 



A 468 P026 A A 4 9 0 


BCS 

S SP092 

• 

, 

OUT OF RANGE. 

A 46 A OA 


ASL 

A 

} 

JUSTIFY THE HUE VALUE. 

A 468 OA 


ASL 

A 



A46C OA 


ASL 

A 



A46D OA 


ASL 

A 



A46E 8SAS 


STA 

XTEMP 

; 

SAVE ADJUSTED VALUE. 

A 4 7 0 2007<*F 

: SPQ20 

JSR 

SKPSEP 



A 4 7 3 20D49F 


J SR 

EXP 

• 

9 

GET LUM VALUE. 

A 4 7 6 A592 


LDA 

EXEC 

• 

9 

EXECUTE MODE? 

A 4 78 F 0 1 5 A A 4 8 F 


BEG 

: SP090 

} 

NO. 

A 4 7 A A 59 4 


LDA 

expstk+i 



A 4 7C D012 A A490 


PNE 

:3P092 

• 

9 

OUT OF RANGE. 

A 4 7£ A 593 


LDA 

EXPSTK 



A 480 C 9 0 8 


CMP 

88 



A482 POOC A A490 


BCS 

: SP092 

• 

9 

OUT OF RANGE. 

A 4 84 OA 


ASL 

A 

? 

X2. 

A 48 5 05AB 


ORA 

XTEMP 

i 

MERGE HUE WITH LUM. 

A 4 8 7 AE8705 

JSP030 

LDX 

PENNUN 

• 

f 

GET PEN NUMBER. 

A48A 2 0 F 7 A 4 


JSR 

SETCL R 

m 

, 

SET 'PNCLRS' AND COLOR REGISTER. 

A48C A 90 0 


LDA 

#0 

• 

r 

SET CC FOR NORMAL RETURN. 

A 4 8 F 6 0 

SSP090 

RTS 


• 

r 

RETURN WITH CC SET. 

A 4 9 0 A 9 0 2 

: S p 092 

LDA 

8IMPFRR 



A492 60 


RTS 




A493 A983 

SSP094 

LDA 

8NRCERR 



A495 60 


RTS 




A 4 96 


PROC 





; CLRMAT -- COLOR MATCHER 
; CALLING SEQUENCE: 





mnln 

' = POINTER TO 

STATEMENT. 





Y = 

STATEMENT INDEX 

• 






JSR 


CLRNAT 







BNE 


ERROR 







C = 

1 

INDICATES X = 

'PCU P 

', 'PCDN' OR 0. 





C = 

0 

INDICATES A r 

COLOR 

REGISTER VALUE. 







X = 

-1 IF 

NOT IN 'PNCLRS', 

OR 



• 

/ 



X = 

PIXEL 

VALUE ('PNCLRS' 

SLOT #) 

496 

4206 

CLRMAT LDX 


PPCTABX 

• 

9 

MATCH OPERAND. 


498 

20A67C 


JSR 


SPCMAT 




496 

DG20 *4480 


BNE 


:CM 040 

• 

9 

NO MATCH -- SEE 

IF NEXP 
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A49D 

E 0 8 0 


CPX 

BPCLP 


A 4 9 F 

F038 A A4 DR 


BEQ 

! CPQ80 


A4 A 1 

F 0 4 U 


CPX 

APCDN 


A 4 A 3 

F 0 3 4 A A4D9 


BED 

SCP080 


A 4 A 5 

BA 


T X A 


i * 

A 4 A b 

F 0 3 1 a A4D9 


BEG 

JCP060 


A 4 A 6 

A 2 0 0 


LDX 

#0 

# 

A4 AA 

E 8 

ICMOIO 

I N X 



A4 Ab 

EC8A0S 


CPX 

NXTCLR 

# 

A 4 A E 

BO 0 7 A A 4 B 7 


ecs 

JCP020 


A4S0 

CDB605 


CMP 

PNCLRS, X 

• 

A493 

D0F5 a A4AA 


8NE 

JC^OIO 


A4B5 

18 


CLC 


• 

A486 

6 C 


RTS 



A4B7 

A2FF 

SCM020 

LDX 

A $ F F 

• 

A4«9 

EC F F 


CPX 

ASFF 


A 4 8B 

18 


CtC 



A 4 BC 

60 


RTS 


• 









? *** external 

ENTRY POINT FROM 

• 

A4BD 


jc^oao 




A 4B0 

20049F 

CLM040 

JSR 

EXP 


A4C0 

A592 


LDA 

EXEC 

• 

A4C2 

FOOD A A4D 1 


BEG 

• CM050 


A4C4 

A694 


LDX 

EXPSTKtl 

• 

A4Cb 

D 0 1 3 A A4DQ 


BNE 

:C”092 


A4C6 

A693 


LDX 

EXPSTK 

• 

A 4C A 

ECB905 


CPX 

NCOLRS 


A 4 C 0 

F002 A A4D 1 


BEG 

: C M 050 


A4CF 

BOOA A A 4DB 


PCS 

:CM092 

• 

A 4 0 1 

BDB805 

JCM050 

LDA 

PNCLPS, X 


A 404 

0DBB05 


CMP 

PNCLRS, X 

• 

A407 

18 


CLC 



A 4 06 

60 


RTS 


• 

A4D9 

38 

! CMOS 0 

SEC 



A40A 

60 


RTS 


• 

A 40B 

A902 

JCM092 

LOA 

«IMPERR 


A4DD 

60 


RTS 


# 

A4DE 


• 

PROC 





9 

! CASSGN 

-- COLOR ASSIGNMENT 


; CALLING SEQUENCE! 


Page 216 

D1 JPILOT. 


? CHECK FOR 'UP', 'DOwN', OR 'ERASE ' 
; 'UP'. 

? 'DOWN', 


; 'ERASE'. 

; SEARCH 'PNCLRS' FOP VALUE PATCH. 


; END OF VALID ENTRIES. 

; COLOR VALUE ^ ATCH? 

; NO. 

? YES -- INDICATF COLOR VALUE O.K. 
; RETURN WITH CC SET. 

? INDICATE NOT FOUND. 

? SET CC. 

1 INDICATE COLOR VALUE O.K. 

T RETURN WITH CC SET, 

'XSETP' & ' XSETL ' *** 


T PROCESS AS A NUMERIC EXPRESSION. 
? EXECUTE MODE? 

J NO. 


; OUT OF RANGE. 


; IS VALUE IN RANGE? 

; YES. 

; no. 

; YES -- GET COLOR VALUE. 

I SET CC FOP EXIT. 

) INDICATE PEN NUMBER O.K. 

> RETURN WITH CC SET. 

; X = 'P CUP' OR 'PCDN ' OR 0. 
; RETURN WITH CC SET, 

; OUT OF RANGE PEN NUMBER. 


PILOT 
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; 

; A s COLOR REGISTER VALUE 

; GSMODE = GRAPHICS MODE 

; NXTCLR = NEXT AVAILABLE SLOT NUMBER 

; NCOLRS = LAST SLOT NUMBER 

; 




• 

9 

JSR 

CASSGN 





; 

• 

BNE 

ERROR 





9 

• 

9 

• 

9 

X = 

PEN NUMBER 



A4D£ 

AEBA05 

cassgn 

L 0 X 

NXTCLR 

• 

9 

GET NEXT SLOT NUMBER. 

A4E1 

ECP905 


CPX 

NCOLRS 

• 

9 

USEABLE SLOT? 

A4F4 

F002 A A4E8 


BEG 

: CN005 

• 

9 

YES. 

A4Fb 

EOOC A A 4 F 4 


BCS 

: C N 0 9 2 

• 

9 

NO MORE SLOTS. 

A 4 E6 

2 0 F 7 A 4 

JLN005 

JSR 

SETCLR 

; 

ASSIGN COLOR TO PEN & COLOR REG 

A4E6 

AE8A05 


LDX 

NXTCLR 


A4 EE 

EE8A05 


INC 

NXTCLR 



A 4 F 1 

A 9 0 0 


LD A 

*0 

• 

9 

SET CC FOR NORMAL EXIT. 

A4F3 

60 


RTS 




A 4 F4 

A 925 

: CN092 

LD A 

ANMCERR 

• 

9 

NO MORE PEN SLOTS, 

A 4 F 6 

60 


RTS 




A4F7 



PRQC 







SETCLR -- SET COLOR 


CALLING SEQUENCE: 


A = COLOR REGISTER VALUE. 

X = PEN NUMBER (PIXEL VALUE). 
GSMODE = GRAHICS MODE, 




? JSR 

• 

9 

SETCLR 



A4F7 

9DBB05 

SETCLR STA 

PNCLRS, X 


FIRST SET PIXEL VAL IN TABLE. 

A4FA 

6CCB05 

STY 

SCTEMP 



A4FD 

46 

PhA 


• 

9 

SAVE COLOR VALUE. 

A4FE 

6 A 

TXA 


• 

9 

PIXEL VALUE TO Y REGISTER. 

A 4 F F 

A6 

TAY 




A 50 0 

4D3705 

LDA 

GSMODE 



A503 

OA 

ASL 

A 

• 

9 

X2 • 

A 5 0 4 

AA 

TAX 




A505 

PD60PA 

LDA 

COL ADR f X 

• 

/ 

GET POINTER TO RFG I STEP SET. 

A508 

85F4 

STA 

FSTACK 



A 5 0 A 

PD61BA 

LDA 

CGLADRt 1 r X 



45 OU 

85F5 

STA 

FSTACK+l 



A50F 

8IF4 

LDA 

( F ST ACK ) , Y 

; 

GET COLOR REGISTER INDEX. 

A51 1 

A A 

tax 




A512 

66 

PlA 




A5 1 3 

9DC002 

STA 

FCOLROf X 

• 

9 

STORE COLOR VALUE TO REGISTER 

A516 

ACCB05 

LD Y 

SCTEMP 




4 


( 


* 


0 
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A519 

60 


RTS 





ASIA 



PROC 




1 



prclnn 

— 

FIND AND FRINT COLOR 

NAME 

1 



CALLING SEQUENCE: 






X = 

INDEX TO # PNCLRS # 

• 


1 




J SR 

PRCLNM 



> 

ASIA 

t 

BDBB05 PRCLNM 

LD A 

PNCLRS,X 

• 

GET COLOR REGISTER VALUE* 

AS ID 

85 A 9 


STA 

TEMP2+2 


V 

A 5 1 F 

8ECC05 


SIX 

PRTEMP 

• 

9 

SAVE X REGISTER. 

A522 

A2FF 


LDX 

F-l 

• 

9 

SETUP TO SCAN THE NAME TABLE. 


A524 

E 8 

S PC 0 1 0 

I N X 




$ 

A 52 5 

86A6 


STX 

TEMP2+1 

• 

9 

SAVE INDEX TO START OF NAME, 


A52 7 

BD707F 

:PC015 

LD A 

PCTA8,X 

9 

9 

GET A CHARACTER, 

$ 

AS2 A 

FO 16 A A542 


BEQ 

: PC080 

7 

END OF TABLE -- NO MATCH, 


A52C 

3003 A A53 1 


0MI 

: PC020 

• 

9 

FOUND THE # SB' BYTE. 

t- 

AS? t 

E6 


I NX 


t 

9 

STILL INSIDE THE NAME. 

i 

A52F 

DO F6 A A527 


8NE 

? PCO 1 5 

7 

(BRA) . 

▼ 

A 5 3 1 

E6 

; PC020 

I NX 


• 

9 

BUMP TO THE VALUE BYTE. 

• 

A532 

BD707F 


LD A 

PCTAB, X 

7 

GET THE VALUE. 


A 5 35 

C5A9 


CMP 

TEMP2+2 

m 

9 

IS THIS THE ONE WE ARE LOOKING FOR? 


A537 

DOES A A 5 2 4 


BNE 

S PC 0 1 0 

• 

9 

NO. 

• 

A539 

A 6 A 8 


LDX 

TEMP2+1 

0 

9 

YES -- GET INDEX TO NAME. 


A536 

2 0 4 F A 5 


JSR 

PRNTCL 

9 

9 

PRINT COLOR NAME, 

• 

A53t 

AECC05 


LDX 

PRTEMP 

0 

9 

RESTORE X REGISTER, 


A 5 4 1 

60 


FTS 




• 

A 5 42 

A900 

s PC 080 

LD A 


• 

9 

NO NAME -- PRINT THE NUMERIC VALUE, 


A54 4 

85 AA 


STA 

TEMP2+3 

9 

9 

ZERO THE MSB FIRST. 

• 

A546 

A2?9 


LDX 

#TENP2t2-DTAB 

7 

POINT TO NUMBER. 


A548 

20149E 


JSR 

DEC ASC 



• 

A54B 

AECC05 


LDX 

PRTEMP 

m 

9 

RESTORE X REGISTER. 


A54t 

60 


RTS 




• 

A54F 



PROC 







PRNTCL 

m m 

PRINT CCLGR NAME 

FROM 

NAME TABLE. 

• 


CALLING SEQUENCES 

X = INDEX TC FIRST CHARACTER OF COLOR NAME* 




JSR 





PRNTCL 
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; 

X = 

INDEX TO NAME 

DELIMITER. 

A54F 

807 0 7 F 

• 

PRNTCL 

LD A 

PCTAB,X 

; GET A Character 

A 55 2 

300b A A55A 


BMI 

SPC090 

; DELIMITER. 

A554 

208294 


J3R 

CHOT 


A 55 7 

E 8 


I NX 



A 558 

D0F5 A A54F 


BNE 

PRNTCL 

t (BRA), 

A 55 A 

60 

SPC090 

RTS 
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AS53 



PROC 





A556 

A26C 

TRTPLC 

LDX 

AGX-DTAB 


? TURTLE IN BOUNDS? 


A55D 

2 0 00 A 8 


JSR 

INTEST 




A560 

F 0 0 8 A A56 A 


8EQ 

! TR090 


? YES. 


A562 

A9FF 


LDA 

#-l 


; NO -- SET FLAG. 


A564 

8DD005 


STA 

GCOL+1 




AS67 

2068A5 


JSR 

CLRTRT 


? CLEAR OLD TURTLE. 

> 

A 56 A 

60 

; T R 09 0 

RTS 





A566 

AE5F05 

CLRTRT 

LDX 

TRYPOS 


? GET OLD POSITION. 

/ 

A56E 

AQOE 


LDY 

tfVTHITE 




A57 0 

A900 


LDA 

AO 



4 

A572 

9 D 0 5 7 7 

: TP020 

STA 

TRBUFF,X 


? REMOVE OLD REPRESENTATION. 


A575 

E8 


I N X 





A 5 7b 

ee 


OEY 




0 

A577 

D 0 F 9 A A572 


BNE 

• TP020 




A 5 7 9 

60 


RTS 




0 








• 

A 5 7 A 


• 

PROC 






? TRTLOC -- PLACF VISIBLE 

TURTLE 

(AT NEW LOC). 

• 



9 

f 








\ calling SEQUENCE: 



t 




'TUFLAG' 

- 

0 IF GCOL & GROW O.K. 





' T RTLON ' 

s 

0 IF OFF, ELSE ON. 





' G S M 0 D E ' 

s 

GRAPHICS SCREEN MODE. 

• 


; 

'THETA' 

- 

TURTLE 

ANGLE. 





' GCOL ' 

am 

TURTLE 

X POSITION. 





'GROW' 

: 

TURTLE 

Y POSITION. 

* 












JSR 

TRTLOC 



• 

A57 A 

AD4F05 1 

fRTLOC 

LDA 

TRTLON 


; TURTLE ON? 


A 5 7 0 

F 0 6 1 A A 5E 0 


3EQ 

: T P 1 0 0 


; no. 

• 

A57F 

A0D905 


LDA 

TUFLAG 


; ARE FARMS VALID? 


A582 

D05C A A5E0 


BNE 

: T P 1 0 o 


? NOT NECESSARILY. 

• 

A 5 8 4 

A00005 


LDA 

GCOL+1 


! IN SCREEN BOUND? 


A587 

3057 A A5E0 


8MI 

: TP1 00 


} NO. 

+ 

A589 

206BA5 


JSR 

CLRTRT 


; CLEAR OLD TURTLE. 


A58C 

2 0 3 9 A 6 


JSR 

dumcal 


? CALCULATE ORIENTATION. 

+ 


• 

CONVERT CURSOR 

X TO COLOR CLOCKS. 


A58F 

AE3705 


LDX 

GSMCDF 


} SCREEN MODE DEPENDENT 

• 

A592 

BC9CB6 


LDY 

CCPXTB , X 


J GET U OF COLOR CLOCKS PER 


*595 

FOOC A A5A3 


BEQ 

;TP040 


? ZERO INDICATES 1/2 CLOCK. 


UNIT, 
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A597 96 


TY A 


t 

START WITH 1/2 POSITION OFFSET. 

A 5 96 16 


CLC 




4599 6 A 


ROR 

A 



459A 16 


CLC 




4598 6DCF05 

: TP030 

ADC 

GCOL 

; 

NOW DO MULTIPLY. 

4595 86 


DEY 




A 5 9 F DOFA A A 5 9B 


BNE 

s TP030 



4541 F 0 0 6 A A 5 A8 


BEO 

S TP050 

; 

(BRA) . 

A543 A DC 0 05 

i TP040 

LDA 

GCOL+1 

? 

DIVIDE BY 2 (1/2 COLOR CLOCK). 

A 5 4 6 6 A 


ROR 

A 



45A7 ADCF05 


LDA 

GCOL 



4 5 A A 6 A 


ROR 

A 



,4545 1 6 

: TP050 

CLC 




45 AC 6930 


ADC 

A $30 

a 

9 

LEFT EDGE OFFSET. 

4 5 A £ AC6005 


LOY 

ORIENT 

• 

9 

SUBTRACT ORIENTATION OFFSET. 

A501 36 


SEC 




A582 F9F8P8 


SBC 

TRDX , Y 



A585 16 


CLC 




4506 8O03D0 


STA 

HPOSO+3 

• 

9 

RESULT IS PLAYER3 HORIZONTAL POSITION. 


; CONVERT CURSOR Y TO SCAN 

LINES 


4589 BCACB6 


LDY 

SLPYTB^X 

• 

9 

GET #SC AN LINES PERR Y UNIT. 

A56C 96 


TYA 


m 

9 

START WITH 1/2 POSITION OFFSET, 

A5BD 18 


CLC 




A5RE 6 A 


ROR 

A 



AS3F 16 


CLC 





A 5C0 

6DD1 05 

JTP060 A DC 

GROW 

• 

$ 

MULTIPLY. 

A 5C3 

86 

DEY 




A 5C4 

DOFA A A 5 C 0 

BNE 

: T P 0 6 0 



A5C6 

6915 

ADC 

#$15 

• 

9 

* it ^ MAGIC OFFSET *** 

A5C6 

AC6005 

LDY 

ORIENT 

• 

SUBTRACT ORIENTATION OFFSET. 

A5C6 

38 

SEC 




A 5CC 

F9E0R6 

SBC 

TRD Y f Y 



45 CF 

8D5F05 

STA 

TRYPOS 

• 

9 

SAVE FOR NEXT TIME IN. 

A5D2 

A A 

TAX 


} 

SETUP FOR THIS TIME. 

A 5 03 

A 0 00 

LDY 

#0 



A 505 

PIPE 

JTP090 LDA 

CTRADDR) 9 Y 

} 

MOVE PATTERN TO MISSILE BUFFER 

A5D7 

9D0577 

STA 

TRBUFF,X 



A 5 DA 

E8 

I NX 




A5DB 

ca 

INY 




A5DC 

COOE 

CPY 

#VTHITE 



A5DE 

DC F5 A A5D5 

BNE 

: TP090 




A5E0 60 : T P 1 00 RTS 

A5E1 PROC 

? TRTINI -- VISIBLE TURTLE INITIALIZATION. 


r 
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ASE1 


TRTINI 




A5E1 

A2FD 


LDX 

#253 

; CLEAR TURTLE REPRESENTATION BUFFER. 

A5E3 

A 9 0 0 


LDA 

# 0 


A5E5 

8Q5F05 


STA 

TRVPOS 


A5E8 

6DD905 


STA 

TUFLAG 

; INITIALIZE TURTLE LOC. INTERLOCK. 

A5EB 

6D0RD0 


STA 

SIZEP3 

? PLAYER SIZE. 

A5F£ 

900277 

S TI 0 1 0 

STA 

TPBLFF + 2 t X 


ASF 1 

CA 


DEX 



A5F2 

dofa a asee 


BNE 

S T 1 0 1 0 


A5F4 

A206 


LDX 

#8 

; INITIALIZE PI AYER/wiSSILE HARDWARE. 

A 5 F 6 

9DFFCF 

S T I 020 

STA 

HPOSO-1 ,X 

; SET ALL HORIZONTAL POSITION TO ZERO 

A5F9 

CA 


DEX 



A5FA 

DOFA a A5F6 


bne 

J T 1 020 


A5FC 

A9 0 1 


LDA 

#1 

J SET PRIORITY. 

A5F£ 

8D6F02 


STA 

GPRIOR 


AbOl 

A970 


LDA 

n HIGH [TPBUFF 

-$7003 ? PLAYER/MISSILE BASE ADDRESS 

A 6 0 3 

8D07D4 


STA 

PMBASE 


AbOb 

A 9 0 2 


LDA 

#$02 

f DEFAULT TURTLE COLOR. 

A606 

8DC405 


STA 

TRTCOL 


Ao06 

60 


RTS 



AfeOC 



PRQC 





; TRONOF -- 

MISSILE DMA ON/OFF 

• 

AbOC 

AD4F05 

TRONOF 

LDA 

TRTLON 

; TURTLE ON? 

A60F 

F 0 1 7 a A628 


BEQ 

STF050 

? NO. 

A61 1 

ADC405 


LDA 

TRTCOL 

? YES -- SET PLAYER COLOR REG. 

A614 

8DC302 


STA 

FCOLRO+3 


A 6 1 7 

A 9 02 


LDA 

#2 


A 6 1 9 

801DDO 


STA 

GRACTL 


A 6 1 C 

AD2F02 


LDA 

DM ACT 

? ENABLE PLAYER DMA (HIGH RESOLUTION 

AblF 

0916 


ORA 

#$18 


Ab2 1 

8D2F02 


STA 

DM ACT 


A 6 2 4 

8D00D4 


STA 

OMACTL 


A627 

60 


RTS 



A628 

A.D2F02 

; TF050 

LDA 

DMACT 

? PLAYER DMA OFF. 

A b2B 

29E7 


AND 

#$E7 


A620 

8D2F02 


•STA 

DMACT 


A630 

A 9 0 0 


LDA 

#0 


A632 

8 D 1 DO 0 


STA 

GRACTL 


A6 35 

8O10D0 


STA 

GRAFP3 


A638 

60 


RTS 
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01 JPILUT 






V * 




A639 


PROC 


A 6 3 9 ADD205 

DUMCAL ld a 

GANGLE 

A63C 6 5 F 6 


STA 

TKADDP 

A 63E ADT305 


LD A 

GANGLE+1 

* A 6 A 1 85F9 


STA 

TRADDP+ 1 

A6A3 A 0 0 0 


LD V 

AO 

' A64S A 2 7 8 


LDX 

ATRADDR-DTAb 

A 6 A 7 A 9 F 8 


LDA 

A-e 

A&49 20049 0 


JSR 

DADDS 

A o 4 C A 5 F 9 


LDA 

TRACDR+ 1 

A 64 E 3010 a A 6 60 


8iv I 

: DC020 

A t>5 o ce 

: dco l o 

I NY 


A 6 5 1 A 9 F 1 


LDA 

A-15 

A653 20049D 


JSR 

DADDS 

A o 5 6 A b F 9 


LDA 

TRADDR+ 1 

A658 JOFo a A650 


BPL 

i DC 0 1 0 

A 6 5 A C 0 1 6 


CP Y 

#24 

A65C 9002 A A 66 0 


BCC 

: DC 0 ? 0 

A65E A 0 0 0 


LDY 

#0 

A 6 6 0 6C6005 

; DC020 

STY 

ORIENT 

A 6 6 3 A9B9 


LDA 

A HIGH VTURT 

A 665 8 b F 9 


STA 

TRADDR+ 1 

A 6 6 7 A 9 1 0 


LDA 

A LC'W VTURT 

A669 65F8 


STA 

TRADDR 

A 666 COCO 


CRY 

AO 

A66D FO 0 A A A679 


BEG 

! DC 09 0 

A66F A278 


LDX 

ATRADDR-DTAB 

A 6 7 1 A90E 

:DC030 

LDA 

AVTHITE 

A673 20049 D 


JSR 

DADDS 

A 6 76 86 


DEY 


A 6 7 7 OOFS a A671 


BNE 

: DCO 3 0 

A 6 79 60 : 

DC 090 

RTS 


A 6 7 A 


PROC 


; 

LO^vER 

LEVEL 

GRAPHICS UTILITIES 


| TRADDR is GANGLE. 


? SETUP POINTER TO TURTLE REP. 


} CALCULATE OFFSET. 


CALLING SEQUENCES 


A 67 A S AEG 


GROVE 


'GX' 

& 

'GY' = 

START 

coordinates. 

'GXNErt' 

& 'GYNEW 

0 — 

END COORDINATES. 

JSR 


GWOVE 




'GX' 

s 

' G X N E W ' 

- 

END 

COORDINATES. 

'GY' 

= 

'GYNEW' 

= 

END 

COORDINATES. 

SI Y 


LEND 



; SAVE Y REGISTER. 
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DliPILOT, 

A 67 C 

A20C 


LDX 

#12 

i 

4 VARIABLES OF 3 BYTES EACH. 

Ao7E 

B5E5 

; GMO 1 0 

LDA 

GXNElN-lfX 

? 

MOVE COORDINATES TO WORKING VARIABLES 

A680 

2 A 


RQL 

A 

; 

PREPARE TO ROUND. 

A b 8 1 

B5E3 


LDA 

GXNEW-3, X 

• 

9 

GET MIDDLE BYTE. 

A683 

6900 


ADC 

# 0 

} 

ADO MSB OF FRACTION. 

A6S5 

95RB 


ST A 

G X 1 — 3 # X 



A687 

P5E4 


LDA 

GXNEW-2, X 

0 

9 

GET MSB. 

A 6 89 

6900 


ADC 

#0 

• 

9 

CONTINUE ROUNDING. 

A6SB 

95BC 


ST A 

GX 1 -2 f X 



AbflU 

A900 


LDA 

#0 

} 

NOW CLEAR FRACTION. 

A 6 3 F 

95HD 


ST A 

GX1-1,X 



A691 

CA 


DEX 




A6 Q 2 

CA 


DEX 




A6P3 

CA 


DEX 




Ab Q 4 

DOES A A67E 


BNE 

: gmo i.o 





; *s* 

LDA 

#0 



Ab Q b 

8DDB05 


STA 

NOPLOT 



A 69 9 

ADD405 


LDA 

GROPR 

• 

9 

GOTO? 

A69C 

C906 


CMP 

AGOTO 



Ab9E 

F 0 1 8 A A6B8 


BEQ 

:GMJ OF 

t 

YES. 

AbAO 

2 0 7 1 A B 


JSR 

NEWDEL 

0 

9 

CALCULATE SLOPE DELTA3. 

A6 A 3 

5003 A A6A8 


B V C 

: GMO 05 



A 6 A b 

4C78A7 


JMP 

: GM04 1 

0 

9 

OVERFLOW. 

A o A b 

ADD405 

:GM005 

LDA 

GROPR 



A6 A 0 

C90A 


CMiP 

ADRAWTO 

; 

'DRAWTO'? 

A 6 AD 

F 035 A AfeE4 


BEO 

: GMO 1 2 

} 

YES. 

A6AF 

2910 


AND 

A 3 1 0 

; 

'FILL' OR 'FILLTO'? 

A 6R 1 

FOOt A A 6 B B 


BEQ 

2 GMO 1 1 

? 

NO -- 'DRAW' OR 'GO'. 

A b P 3 

AD 1 3 05 


LDA 

PEN 

• 

r 

PEN ERASE ON FILL? 

A6B6 

DO 03 A A6BB 


BNE 

S GMO 1 1 

; 

NO. 

A666 

4CCEA7 

:GM10F 

JMP 

: GM 1 5 u 



A6BB 

AD5E05 

: GMO 1 1 

LDA 

EDGRUL 

; 

FREE? 

AbfiE 

C908 


CMP 

AEFPEE 



AbCO 

F 0 0 A A AbCC 


BEQ 

2 GM 1 IF 

• 

9 

YES -- CLIP. 

A6C2 

A244 


LDX 

AGX2-DTAB 

? 

IS START POINT IN BOUNDS? 

A6C4 

2U0CAB 


JSR 

INTEST 



A 6C 7 

DO 1 B A A6E4 


BNE 

SGM012 

0 

9 

NO -- CLIP. 

A6C9 

4 C B 4 A 7 


JMP 

: GM120 

• 

/ 

YES -- HALT f WRAP OR BOUNCE. 



? CHECK 

FOP LINE 

SEGMENT WITHIN 

SCREEN LIMITS 


? THF clipping ALGORITHM USED HERE IS DESCRIBED IN SECTION 5-1 OF THE 
; SECOND EDITION OF "PRINCIPLES OF INTERACTIVE COMPUTER GRAPHICS" BY 
; NEWMAN & SPROULL. 


A6CC AD0405 tGMilP LDA GROFR f "GO"? 


or .. h.b. cawAc Ass ^’- >.«* p,9 * 0 ^ IL0T< 


46CF C905 
AfcDl DO 1 1 A A6E4 

4603 AD5E05 
AbDb C908 
A b 08 D 0 0 4 A A b E4 


CMP 

BNF 

LDA 
C it P 
BNE 


#G0 

iGMoia 

FOGRUL 

AEFREE 

:GM012 


; NO. 

? EDGE RULE s FREE? 
; NO. 


A o D A A23£ 

A 6 DC 2 0 0 D A g 


LuX 

JSR 

AGX1-DTAB 

INTEST 

; 

END 

POINT IN BOUNDS? 

A 6 D F F 0 0 3 A A 6 E 4 


BEQ 

: GMO 12 

; 

YES. 


AfeEl 

EFD605 


INC 

NOPLOT 

? 

NO - 

- DON'T PLOT END POINT, 

4bE4 
A6 Eb 

A23E 

200DA6 

: GMO 1 2 

LQX 

JSR 

6GX1-DTAB 

INTEST 

• 

i 

TEST 

end point. 

AbE9 

804905 


STA 

GNUMB 

m 

9 

SAVE 

RESULT. 

AbEC 
A 6 EE 

A244 
2 0 CD A B 


LOX 

JSR 

AGX2-DTAB 

INTEST 

? 

TEST 

START POINT. 

A b F I 

9D4A05 


STA 

GNUMBtl 

? 

SAVE 

result. 

AbF<4 

204905 


AND 

GNUMB 




A b F 7 

F 0 03 A A6FC 


BEQ 

! GMO 1 3 

• 

9 

PART 

OF LIME MAY BE IN SCREEN. 

A6F9 

4CE0A7 

: GMOVF 

JIMP 

IGM157 

? 

NO PART OF LINE IS IN SCREEN. 

A6FC 

A04905 

: GMO 1 3 

LDA 

GNUMB 




AbFF 

Ou4 A 05 


ORA 

GNUMBtl 




A 702 

D 0 03 A A 7 0 7 


8NE 

: GMO 14 

• 

PART 

OF LINE IS OFF THE SCREEN. 

A 7 0 4 

4 C A F A 7 


JMP 

SGM1 10 

• 

9 

ALL OF LINE IS IN SCREEN. 

A 7 0 7 

A23E 

: GMO 14 

LDX 

4GX1-DTAB 

• 

9 

FIND 

AN INTERSECTION WITH AN EDGE. 

A 70 9 

A 04 90 5 


LDA 

GNUMB 

• 

9 

IS XI, Yi OUTSIDE SCREEN? 

A70C 

0005 A A 7 1 3 


BNE 

: GMO 1 6 

? 

YES. 



A 7 OE A244 
A 7 1 0 AD4AG5 

A 7 1 3 46 

A 7 1 4 2908 

A 7 I 6 FOOC A A 7 2 4 


S GMO 1 6 


A718 
A 7 l 9 
A 7 1 B 


38 

A900 

ED 6105 


LDX 

LDA 

PH A 
AND 
8EQ 

SEC 

LDA 

sac 


AGX2-DTA6 

GNUMBtl 


DELEFT 
! G M 0 2 0 


#0 

XC 


; NO -- THEN X2,Y2 MUST BE, 


; SAVE INTERSECT STATUS, 

? LEFT EDGE INTERSECTION? 

; no. 

? YES -- 'GACC' = LEFT EDGE X VALUE. 
? 'GACC' = -XC. 


m 

47 1 E 

85CE 

STA 

GACC 




A 720 

A9FF 

LDA 

#-l 




A 722 

DOOD A A 73 1 

BNE 

JGM025 

} 

(BRA) , 

m 

A 724 

68 

: GM020 PLA 


? 

GET STATUS. 


A 7 25 

48 

Ph A 




0 

A 726 

2904 

and 

ALRIGHT 

• 

9 

RIGHT EDGE INTERSECTION? 


A726 

F 0 36 A A 760 

BEQ 

: GM030 

• 

r 

NO. 

0 

A7?A 

ADM 05 

LDA 

XC 

• 

9 

YES -- 'GACC' = RIGHT EDGE 


A 72D 

85CE 

STA 

GACC 

9 

9 

'GACC' = XC. 


A 


r 
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A72F 

A 90 0 


LD A 

#0 


A 7 3 1 

85CF 

• GM025 

STA 

GACC+1 


A733 

A04E 


LD Y 

AGACC-DTAB 


A 7 35 

20459A 


JSR 

DMO V I 


A 7 38 

8 A 


TX A 



A739 

48 


PHA 



A73A 

A 2 4 E 


LDX 

AGACC-DTAB 


A73C 

A 06C 


LD Y 

AGX-DTAB 


A73E 

2057 AF 


JSR 

RSUBI 


A7 A 1 

A 0 4 C 


LDY 

ADELY-DTAB 

/ 

A743 

205BAE 


JSR 

Gi*ULT 


A? 46 

A 04 A 


LDY 

ADELX-DTA8 

4 

A 7 4 8 

20BEAE 


JSR 

GDIV 


A 74 8 

D02B A A 7 7 8 


BnE 

;GM041 

♦ 

A74Q 

A06F 


LDY 

AGY-DTAB 


A74F 

2050 AF 


JSR 

RADDI 


A 752 

68 


PL A 



A 7 5 3 

AA 


tax 



A754 

A 5CE 


LD A 

GACC 

t 

A 756 

9583 


STA 

DTAB+3/X 


A 75 8 

A5CF 


LD A 

GACC+1 


A 75 A 

9584 


STA 

DTA6+4.X 

• 

A75C 

68 


PLA 



A 750 

4CE4A6 


JMP 

SGM012 

• 

A 7 6 0 

68 

: GM030 

PLA 



A 7 6 1 

48 


PHA 



A762 

2902 


AND 

AEBOTCM 

• 

A 76 4 

FOOC A A772 


BEQ 

JGM040 


A766 

38 


SEC 


# 

A767 

A 9 0 0 


LD A 

AO 


A 769 

ED6305 


SBC 

YC 


A 76C 

85CE 


STA 

GACC 

# 

A 7 6 E 

A9Fp 


LD A 

A - 1 


A 7 70 

0010 A A782 


8NE 

JGM045 

• 

A 7 72 
A 7 72 

68 

: GM04 0 

PLA 



A773 

46 


PHA 


# 

A774 

2901 


AND 

AETQP 


A 7 76 

D003 A A77B 


BNE 

: GM042 

# 

A 7 78 

4CE0A7 

! G M 0 4 1 

JMP 

J GM1 57 


A778 


:GM042 



• 

A 7 78 

AD6305 


LD A 

YC 


A 7 7£ 

85CE 


STA 

GACC 


A78J 

A900 


LDA 

AO 

# 

A 782 

8 5C F 

SGM045 

STA 

GACC+1 
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01 :PILOT. 


; extend sign. 

? GX1 OR GX2 = 'GACC'. 


J GY1 OR GY2 = (GACC-GX) ★ DElY / DELX t GY. 


? OVERFLOW -- DON'T DRAW, 


; CLEAR STACK. 

? KEEP THIS UP UNTIL LINE SEGMENT IS CLIPPED. 
; GET STATUS, 

; BOTTOM EDGE INTERSECTION? 

; no. 

? YES -- 'GACC' = BOTTOM EDGE Y VALUE. 

; 'GACC' = -YC. 


; C6RA). 


? GET STATUS. 

; TOP EDGE INTERSECTION? 
? YES. 


; 'GACC' = TOP EDGE Y VALUE. 
? 'GACC' = YC. 


? EXTEND SIGN. 


PJIQT - 


ATARI CARAC A#s«fro1«r V « r l.OA 
- h.d. STEWART 


A7*4 9S84 

A 78b A5CE 
A7S8 9683 



A7R3 A04A 
A7R5 2O50AE 


STA 

IDA 

STA 

T X A 
PHA 
LUX 
LDY 
JSR 

LDY 

JSR 


DTA8*<| , X 
GACC 

DTAdf3, X 


AGACC-DTAB 

AGY-DTAB 

RSUBI 

AOFLX-DTAB 

CMUL T 


A 7 98 
A 7 9 A 
A 7 90 

AU4C 
2O0E AE 
D009 *A778 


LDY 

JSR 

BNE 

pdely-dtab 

ODIV 

JGM041 

A 7®F 
A 7 A 1 

A06C 
2 0 5 0 A F 


LDY 

JSR 

PGX-DTA8 

RADDI 

A 7 A A 
A 7 AS 
A 7 Ab 
A 7 A 8 
A 7 A B 
A 7 AC 

66 

AA 

AU4E 

20459A 

68 

4CE4A6 


PLA 

Tax 

LDY 

JSR 

PLA 

JMP 

*GACC-DTA6 
DMOV I 

SGV012 

A 7 A F 
A782 

2071 A3 
70C4 *477 8 

J GMl 10 

JSR 
B VS 

NEWDEL 
: GMQ4 1 

A 7 8 4 

2 0 1 C A 8 

JGM120 

JSR 

NEWDRW 


A7CE A23£ 

A 70 0 200DAB 
A 703 OOOQ *A7E0 


; GOTO 
: GM1 50 


A 705 
A707 
A 70 A 
A 7np 


A 03E 
20FFAB 
209FAA 
2093AA 


A7EQ 20BCA8 


LDX 

JSR 

BNE 

LDY 

JSR 

JS« 

JSR 


8GM157 J3R 


#GX 1 -DTAB 

INTEST 

:GM157 

AGX1-DTAB 

SETCIJR 

CWVRT 

PLOT 

NgWCUK 


Pane ?27 

01 * P I LOT , 


I GY1 OP GY2 s # GACC # . 


I SAVE X REGISTER. 

; GXl OR GX2 5 (GACC - GY) a DELX / DELY ♦ GX 


; OVERFLOW. -- DON'T DRAW, 


? CLEAR THE STACK, 

? KEEP THIS UP UNTIL LINE SEGMENT IS CLIPPED 

; CALCULATE SLOPE DELTAS FOR CLIPPED LINE 
? OVERFLOW. 

? DRAW LINE. 


A 7B 7 

ADD505 

LDA 

HITWLL 

• 

9 

HIT WALL? 

A 78 A 

OOOC *A7C8 

6NE 

:GM130 

• 

f 

YES. 

A 7 SC 

A D 0 4 0 5 

LDA 

GROPR 



A 78 F 

C90 A 

CMP 

ADRAWTO 

• 

'DRAWTO'? 

A 7C 1 

F01D *A 7E0 

8EQ 

: GM 1 57 

* 

9 

YES 

A 7C3 

ADDb 05 

LDA 

HITEDG 

? 

HIT EDGE? 

A7C6 

F 0 1 6 A A7E0 

BEG 

: gm i 57 

? 

NO. 

A 7C8 

2 0 E 9 A 7 JGM130 

JSR 

SETCR2 

• 

9 

SET CURSOR 

A 7CB 

4CE3A 7 

JMP 

.•GM160 

• 

9 

(BRA) . 


? CHECK FOR POINT IN SCREEN. 

? NOT IN SCREEN -- DON'T PLOT. 

; CONVERT TO HANDLER COORDINATES. 
? PLOT POINT IF PEN DOWN. 

J ESTABLISH NEW CURSOR POSITION. 


ATARI CAMAC Assembler Ver 
PILOT -- H . 8 . STEWART 


A7E3 

2058A5 

: GMl 60 JSR 

TRTFLC 

A7Eb 

A4F0 

LDY 

LEND 

A7E3 

60 

r rs 


A7E9 

38 

SETCR2 SEC 


A7EA 

ADC F 05 

LD A 

GCOL 

A7E0 

ED6105 

SBC 

XC 

A7F0 

S5EC 

STA 

GX 

A7P2 

85F6 

STA 

GXNEW 

A7F4 

ADD005 

LOA 

GCOL + 1 

A 7 F 7 

ED6205 

SBC 

XC + 1 

A 7 P A 

85ED 

STA 

GX + 1 

A 7 F C 

85E7 

STA 

GXNEW+1 

A7FE 

38 

SEC 


A 7 p F 

AD6305 

LDA 

YC 

A 802 

EDD1 05 

SBC 

G R 0 A 

A605 

65EF 

STA 

GY 

A807 

85E9 

STA 

GYNEW 

A609 

A900 

LDA 

no 

AS 0 S 

E900 

SBC 

no 

A80D 

85F0 

STA 

GY + 1 

A 6 0 F 

85EA 

STA 

GYNEW+1 

A81 1 

A900 

LDA 

no 

A813 

85EE 

STA 

GX + 2 

A615 

esFi 

STA 

GY + 2 

AS 1 7 

85E8 

STA 

GXNEW+2 

AS 1 9 

85EB 

STA 

GYNEW+2 

AS 16 

60 

RTS 



1 • 0 A 
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0 1 : PILOT . 


? PLACE VISIBLE TURTLE 
? RESTORE Y REGISTER 


• GX := GCOL-XC. 
t GXNEW ?= SAME. 


GY := YC-GROW 
GYNEW := SAME. 


; CLEAR FRACTION. 


PILOT -- h.B 


ATARI 

STEWART 


CA*AC Asuerrbler V«r 1.0A 


P«qe 229 

D l * P I LOT 


*<M C 


PROC 


NfcKDPfc 


LINE DRAW ROUTINE 


CALLING SEQUENCE: 


J Gx2,GY2 = START COORDINATE. 

I GX 1 # G Y 1 = END COORDINATE. 

; dllx,dely defines slope of line. 

7 PEN = PIXEL VALUE. 

; GSMODE = SCREEN MODE. 

; EuGRUL = EDGE RULE IN EFFECT. 

; GROPR = OPERATION. 


; JSR NEWDRW 

9 

7 HITwLL s 0 IF NO WALL HIT 

7 HITEDG = 0 IF NO EDGE HIT 

7 GCOL = COL OF LAST DRAWN PIXEL 

; GROW = ROW OF LAST DRAWN PIXEL 


A81 C 

A 0 4 4 

NEWDRW 

LDY 

AGX2-DT AB 

• 

9 

ROWCRS 

: = YC - GY2, 

AolE 

20 F FAS 


JSR 

SETCUR 

7 

COLORS 

;= GX2 + XC, 

A821 

2G9FAA 


JSR 

CNVRT 




A824 

A 9 0 0 


LDA 

#0 




A 6 26 

8DD705 


STA 

HALTFG 




A629 

8DD505 


STA 

HITwLL 




A62C 

8DD605 


STA 

HITEDG 




A82F 

ADC405 


LDA 

GROPR 




A 632 

C905 


CMP 

AGO 

• 

9 

'GO'? 


A 834 

F003 A A 8 39 


BEQ 

: DR 02 0 

• 

f 

YES — 

DON'T PLOT START POINT 

A 8 36 

2093 A A 


JSR 

PLOT 

m 

9 

NO -- 

DRAW START POINT. 

A 8 3 9 

A213 

: DR020 

LuX 

ADELTAR-DTAB 

m 

9 

DELTAR 

• - ABS(DELY) • 

AS3B 

A04C 


LDY 

adely-dtab 




A83D 

20459A 


JSR 

DMO V I 




A840 

20FF9C 


JSR 

DABS! 





A843 

A215 

LDX 

ADELTAC-DTA6 

? DELTAC := ABSCOELX) 

A645 

A 0 4 A 

LD V 

ADELX-DTAB 


A847 

20459A 

JSR 

DMO V I 


A84 A 

20FF9C 

JSR 

DABS I 



A64D 

A213 

LDX 

ADELTAR-DTAB 

; IF DELTAR>DELTAC 

A64F 

AO 15 

LDY 

ADELTAC-DTAB 


ASS i 

201590 

JSR 

DCMPI 


A 854 

9028 *A87E 

BCC 

: DP050 



A856 
A658 
A65 A 
A&5D 
A 65 F 
A862 
A664 
A 86o 


A 2 1 E 

LDX 

AENDPT-DTA8 

• 

9 

THEN BEGIN, 

AO 13 

LDY 

ADELTAR-DTAB 

• 

9 

ENDPT := DELTAR. 

20459 A 

JSR 

D M 0 V I 



A 2 1 A 

LDX 

ACOLAC-DTAB 

0 

9 

COLAC DELTAR/? 

20459A 

JSR 

DMOVI 



469 6 

LSR 

COLACtl 



669A 

ROR 

COLAC 



A900 

LDA 

AO 

• 

9 

ROw AC := 0. 


PILOT -- H.6. 


AT&RI CAMAC 
STEWART 


Asserrb Ter V > r 1.0A 
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DJ {PILOT. 


A866 8596 STA 

A66A8599 STA 

A86C A21C LDX 

A86E A 0 9 1 LDV 

AS70 20459 A JSR 

A873 A047 LDY 

A675 20429C JSP 

A678 2QFF9C JSR 

A 8 7 6 ACA3A8 JMP 

A87E A21E SDR050 LDX 

A880 A 0 1 5 LDY 

A 682 20A59A JSR 

A885 A 2 1 6 LDX 

A687 2GA59A JSR 

A88A 4699 LSR 

A 68 C 6698 ROR 

A88E A900 L D A 

A 89 0 859 A STA 

A692 8598 STA 

A89 A A2 1 C LDX 

A6 Q to A 0 3E LDY 

A 89 8 20A59A JSR 

A696 AOAA LDY 

A89D 20429C JSR 

A6AQ 2CFF9C JSR 

AS A3 A59C :DR060 LD A 

A6A5 0590 ORA 

A6A7 D 0 0 3 A A8AC BNE 

A8 A 9 AC 30 A A JMP 

A6AC A 2 1 6 :DR60F LDX 

A 8 A E A 0 4C LDY 

A6B0 20329C JSR 

A683 A 0 1 £ LDY 

A885 20229C JSR 

A 888 9027 A A6E1 BCC 

A68 A 20A29C JSR 

A68D C 6 5 A DEC 

A38F A 554 LDA 

A6C1 C9FF CMP 

A6C3 0065 A A 9 2 A BNE 

A8C5 8DD605 STA 

A 8C6 AD5E05 LDA 

A 8Cb C9C1 CMP 

A8CD D007 A A 6D6 BNE 

A8CF ADAB05 LDA 

A8 02 8554 STA 

A8D4 D 054 A A92A BNE 

A 8 Dfc £654 : DR06 1 INC 

A 606 C902 CMP 

A 6 0 A 0030 A A90C BNE 


ROW AC 

RGwACil 

PCOUNTR-DTAB 

PGYl-DTAB 

DMO V I 

FGY2-CTA8 

DSU8I 

DABS I 

SDR060 

PENDPT-DTAB 

PDELTAC-DTAB 

DMOVI 

PROW AC-DT AB 
DMO V I 
ROWAC+1 
RQWAC 
#0 

COLAC 
COLAC+1 
PCOUNIR-DTAB 
PGX 1 -DT AB 
D M 0 V I 
PGX2-CTAB 
DSUBI 
DABS I 

CQUNTR 
COUNTR+ 1 
; DR6 0 F 
J QR900 

PROwAC-DTAB 
PDELY-DTA8 
DADD I 

#ENDPT-DT AB 

DSCMI 

JDR063 

DSUBI 

ROWCRS 

ROWCRS 

P-1 

! DRO 7 0 

HITEDG 
EDGRUL 
PEWRAP 
S DR06 1 

MAXROW 
ROWCRS 
! DRO 7 0 

ROWCRS 

PEHALT 

JDP067 


; COUNTR s= ABSCGYl-GY?) . 


; END. 

; ELSE BEGIN. 

? ENDPT * s DF.LTAC. 

} ROW AC := DELTAC/2. 


? COLAC != 0. 


? COUNTR := ABSCGX1-GX2) . 


J END. 

? IF COUNTR> 0 THEN BEGIN. 




? RUWAC * s ROWAC + DELY. 


; IF ROWAC>=ENDPT THEN BEGIN. 


} ROW AC !S ROWAC-ENDPT, 
} ROWCRS i - ROWCRS-1. 


? ROWCRS >= MINROW. 

} SET EDGE HIT FLAG. 

? OFF TOP EDGE. 

J WRAP? 

? NO -- MUST BE BOUNCE OR HALT. 
; WRAP TO SCREEN BOTTOM EDGE. 

; (BRA ) , 

; BRING TURTLE BACK IN. 

; HALT? 

? NO, 


PILOT 


ATARI C A M A C Assembler Ver 
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D 1 : P I LOT , 


A60C 

800705 


STA 

haltfg 

; YES -- SET FLAG. 

A8DF 

F 0 A 9 A A92A 


RED 

: DRO 7 0 

} CdRA). 

A8E1 

A599 

: DR 0 6 3 

LDA 

R 0 W A C + 1 

? ELSE IF ROW AC < 0 THEN BEGIN, 

ASEi 

1 0 A 5 A A 92 A 


BPL 

: D R 0 7 0 


A8E5 

20329C 


JSR 

DADDI 

} ROW AC := ROWAC + ENDPT. 

A 8 Ed 

E 65 A 


INC 

ROWCRS 

; ROWCRS s= ROWCRS+1? END. 

A 8 E A 

A 0 A 8 0 5 


LDA 

MAXROW 


A 8 ED 

C55A 


CMP 

ROWCRS 


A8EF 

8039 A A92A 


ecs 

; DRO 7 0 

f ROWCRS <= MAXROW. 

A 8 F 1 

800605 


STA 

HITEDG 

; SET EDGE HIT FLAG, 

AoF U 

AD5E05 


LDA 

FDGRUL 

? OFF BOTTOM EDGE. 

A 8 F 7 

C 9 0 1 


CMP 

AEWRAP 

? WRAP? 

A8F9 

D 0 0 6 A A 9 0 1 


BNE 

: DR065 

? NO -- MUST BE BOUNCE OR HALT. 

A8 F0 

A 90 0 


LDA 

#0 

} WRAP TO SCREEN TOP EDGE. 

A 8 F 0 

855 A 


STA 

ROWCRS 


A8FF 

F 029 A A92A 


BEQ 

S DR 0 7 0 

; (BRA). 

A 9 0 1 

C65 A 

:DR065 

DEC 

ROWCRS 

; BRING TURTLE BACK IN. 

A903 

C902 


CMP 

AEHALT 

? HALT? 

A905 

0005 A A90C 


BNE 

; DR067 

? NO. 

A9 0 7 

8DD705 


STA 

HALTFG 

; YES -- SET FLAG. 

A90 A 

FOIE A A92A 


BEG 

: DR070 

? (BRA). 

A90C 

20F19C 

JDR067 

JSR 

DNEGI 

? ROWAC;= ENDPT-RQWAC-1 . 

A 9 0 p 

20329C 


JSR 

DADDI 


A9ia 

201290 


JSR 

DOCRI 



A 9 1 5 

38 

SEC 


• 

9 

THETA := THETA-180. 

A 9 1 o 

A9B4 

LDA 

A LOW 180 



A 9 1 8 

E5F2 

SBC 

THETA 



A91 A 

85F2 

STA 

THETA 



A 9 1 C 

A 9 0 0 

LDA 

A HIGH 180 



A 9 1 E 

E5F3 

SoC 

THETA+1 



A920 

85 F 3 

STA 

THETA+1 



A922 

2096AB 

JSR 

MOD360 



A925 

A 24 C 

LDX 

ADEL Y-DTA8 

• 

* 

DELY != -DELY. 

A927 

20F19C 

JSR 

DNEGI 



A 92 A 

A21A 

: DR070 LDX 

ACOLAC-DTAB 

• 

9 

COLAC J = COL AC+DELX • 

A92C 

A 0 4 A 

LDY 

adelx-dtab 



A92E 

20329C 

JSR 

DADDI 



A 93 i 

A 0 1 E 

LDY 

AENDPT-DT AB 

• 

r 

IF COLAC >= ENOPT THEN BEGIN. 

A933 

20229C 

JSR 

DSCMI 



A 936 

9035 A A96D 

BCC 

: DR073 



A938 

20439C 

JSR 

nsuei 

• 

9 

COLAC != COLAC-ENDPT. 

A93B 

204362 

JSR 

INCCOL 

• 

9 

COLORS := CQLCPS+1. 

A 9 3£ 

ADAD05 

LDA 

MAXCOL+1 



4941 

C55b 

CMP 

COLCRS+1 
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A943 

D005 A A 9 4 A 


BNE 

; DR70F 


A945 

ADAC05 


LD A 

MAXCOL 


A948 

C555 


CMP 

COLCPS 


A 9 4 A 

B06B A A9B7 

! DR70F 

RCS 

; DR080 


A94C 

BDD605 


STA 

HITEDG 


A94R 

AD5EQ5 


LD A 

EOGRUL 


A952 

C901 


CMP 

*EWRAP 


A954 

D 0 0 8 A A95E 


RNE 

s DR 07 1 


A956 

A900 


LD A 

PQ 


A9S8 

8555 


SI A 

COLORS 


A 95 A 

8556 


STA 

COLCRS+1 


A95C 

F 059 A A9B7 


8EQ 

! DR080 

4 

A95E 

204AB2 

SDR071 

JSR 

DECCOL 

w 

A961 

AD5E05 


LD A 

EDGRUL 


A964 

C902 


CMP 

#EHALT 

# 

A966 

DO 39 A A9 A 1 


BNE 

s DR 0 77 


A968 

8DD705 


STA 

H ALT FG 

-4 

A96B 

F 0 A A A A9B7 


BEQ 

SDR080 


A96D 

A59B 

J0R073 

LD A 

CGLAC+1 

• 

A96F 

1046 A A9B7 


6PL 

: DR060 


A97 1 

20329C 


J SR 

DADDI 

• 

A974 

204AB2 


JSR 

DECCOL 


A97 7 

A556 


LD A 

COLCRS+1 

t 

A979 

1 03C A A9B7 


PPL 

SDR080 


A978 

8DD605 


STA 

HITEDG 

• 

A97E 

AD5E05 


LD A 

EDGRUL 


A981 

C901 


CMP 

#£WRAP 


A983 

DOOD A A992 


BNE 

: DR075 

• 

A985 

ADAC05 


LD A 

MAXCOL 


A986 

8555 


STA 

COLORS 

% 

A 96 A 

ADAD05 


LD A 

MAXCOL* 1 


A98D 

8556 


STA 

COLCRS+1 


A98F 

4C67A9 


JMP 

* DR080 

• 

A992 

2043B2 

; DR075 

JSR 

INCCOL 


A995 

AD5E05 


LD A 

EDGRUL 

0 

A998 

C902 


CMP 

#EHAL7 


A 99 A 

D005 A A9A1 


BNE 

SDR077 

0 

A99C 

8DD705 


STA 

HALTFG 


A99F 

F 0 1 6 A A9B7 


BEQ 

! DR080 

m 

A 9 A 1 

20F19C 

! DR077 

JSR 

DNEGI 


A9A4 

20329C 


JSR 

DADDI 


A9A 7 

20129D 


' JSR 

DDCRI 


A9AA A272 


LDX 


ATHFTA-DTAB 


Paqe 232 

DlsPILQT, 


} COLORS <= MAXCOL. 

; SET EDGE HIT FLAG, 

? OFF RIGHT EDGE. 

; WRAP? 

; NO -- MUST BE BOUNCE OR HALT. 
} WRAP SCREEN LEFT EDGE. 


? (BRA). 

; BRING TURTLE BACK IN. 

? HALT? 

? NO, 

? YES -- SET FLAG. 
i (BRA). 

; ELSE IF COLAC < 0 THEN BEGIN. 


; COLAC := COLAC+ENDPT. 
; COLORS s= COLORS" 1 • 


; COLORS >= MINCOL. 

? SET EDGE HIT FLAG. 

; OFF LEFT EDGE. 

? WRAP? 

? NO — MUST BE BOUNCE, 

; ftRAP TO SCREEN RIGHT EDGE. 


? BRING TURTLE BACK IN, 

? HALT? 

} NO . 

; YES -- SET FLAG. 

; (BRA). 

; COLACjsENOPT-COLAC-l. 


• 5 - 




r 


THETA 


THETA. 


PILOT 
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01 SPILOT . 


A9AC 

20F19C 

JSR 

DNEGI 



A9AF 

2 0 96 A 0 

JSP 

V00360 



A 9B2 

A24A 

LDX 

FDELX-DTAB 

; DELX := -Delx. 

A 944 

20F19C 

JSR 

DNEGI 



A94 7 

ADO 7 0 5 

IDROSO L D A 

HALTFG 

• 

9 

HALT? 

A 93 A 

FOOS A A 9 C 1 

BEQ 

i DR081 

i 

NO. 

A 9BC 

<300605 

STA 

HITEDG 

? 

YES -- SET EDGE HIT FLAG. 

A 98 F 

D06F A AA30 

BNE 

JDR900 

• 

9 

STOP DRAWING (BRA). 

A9C1 

ADCD05 

SDROei LD A 

WALLS 

f 

WALLS ACTIVE? 

A 9C4 

0DCE05 

ORA 

WALLS* 1 



A9C7 

FOOD A A9D6 

BEQ 

: DR 0 82 

• 

9 

NO. 

A 9C 9 

2067AA 

JSR 

SGSTUF 

} 

SAVE GROW & GCOL. 

A9CC 

207CB2 

JSR 

TSTPIX 

? 

GET PIXEL VALUE AT CURRENT POSITIGN 

A9CF 

2 026 AC 

JSR 

WALLCK 

a 

9 

IS IT A WALL? 

A 9 02 

D 0 56 A AA2A 

BNE 

SDR300 

• 

9 

YES -- BACKUP TO PRIOR POSITION. 


A9D4 F 0 0 3 * A9D9 


BEQ : DRQ84 


(3RA ) 


A 906 

209FAA 

; DR082 

JSR 

CNVRT 

A 909 

ADD405 

:DR084 

LOA 

GROPR 

A 90C 

C905 


CMP 

#G 0 

A9QE 

F 0 3 F A A A 1 F 


BEQ 

; DR085 

A 9E0 

2093AA 


JSR 

PLOT 

A 9E3 

ADD405 


LD A 

GROPR 

A9E6 

2910 


AND 

#$1 0 

A9E8 

F 0 35 a AA1F 


BEQ 

; DROSS 

A9FA 

A 90 0 


LD A 

# o 

A9EC 

8D9C05 


STA 

FLDCLR 

A9EF 

4555 


LD A 

COLORS 

A9F1 

46 


PHA 


A 9F2 

A 556 


LD A 

COLCRS+1 

A 9 F4 

48 


PHA 


A9F5 

209382 

j DR84D 

JSR 

TSTCOL 

A9F3 

Au9F05 


LOA 

COLFLG 

A9FB 

2940 


AND 

#$40 

A9F0 

DO 06 A A A 05 


BNE 

: DR8 4 E 

49 FF 

2043B2 


JSR 

INCCOL 

AA 02 

4C0SAA 


JMP 

SDR34F 


? ROW/COLUMN TO MEN ADDRESS. 

? 'GO'. 

; YES -- DON'T PLOT INTERMEDIATE POINT, 
; PLOT POINT IF PEN DOWN. 

; 'FILL' OR 'FILLTO'? 

; no. 

; YES -- SETUP FOR TSTPIX CALL. 

? SAVE CURRENT CURSOR POSITION. 

? SEE IF TURTLE AT RIGHT EDGE. 

? YES 
} NO. 


A A 0 5 

A90 0 

JDR64E LD A 

#0 

A A 0 7 

6555 

STA 

COLORS 

A A 0 9 

8556 

STA 

CCLCRSfl 


SET TURTLE TO LEFT EDGE. 


AAOB 

207CB2 

: DR84F JSR 

TSTPIX 

AAOE 

D006 A A A 1 6 

BnE 

:DR84M 

A A 1 0 

2093 A A 

JSR 

PLOT 


; IS TURTLE OVER BACKGROUND? 

; NO -- ALL DONE KITH SCAN. 

; YES -- REPLACE WITH FILL COLOR. 
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A A 1 3 

4CF5A9 


JMP 

: DR84D 

AAlfe 

66 

: DR&4M 

PLA 


A A 1 7 

6556 


STA 

COLCRS-t 

A A 1 9 

66 


PLA 


A A 1 A 

8555 


STA 

COLORS 

A A 1 C 

209FAA 


JSR 

CNVPT 

A A l F 

A21C 

: DR085 

LDX 

ACOLNTR 

A A2 1 

2 0 1 290 


JSR 

DDCRI 

A A 24 

2046AA 


JSR 

SPDDEL 

A A27 

4 C A 3 A 8 


JMP 

: DRQ60 

A A2A 

8 D 0 5 0 5 

: DR300 

STA 

HITWLL 

A A2D 

2 0 7 A A A 


JSR 

PGSTUF 

A A 3 0 

ADD405 

: DR900 

LO A 

GROPR 

Aa33 

C905 


CMP 

#GO 

A A 35 

D010 A AA47 


BNE 

SDR990 

AA37 

ADD505 


LD A 

HITWLL 

A A3 A 

DOOB A A A 4 7 


BNE 

: DR99 0 

A A 3C 

ADDB05 


LD A 

NOPLOT 

AA3F 

D 0 06 A A A47 


BNE 

: DR990 

A A 4 1 

20 9 F A A 


JSR 

CNVPT 

A A 44 

2 0 9 3 A A 


JSR 

PLOT 

AA47 

60 

: DR990 

RTS 


AA4d 



PROC 


AA48 

AE5D05 

SPDDEL 

LDX 

SPEED 

AA4B 

FOOE A A A 5 8 


8EQ 

SSD200 

AA4D 

A 5 1 4 

:SDl 00 

LDA 

RTCLOK+ 

AA4F 

C 5 1 4 

:S01 10 

CMP 

RTCLOKt 

AA51 

FOFC A A A4F 


BEQ 

! SD 1 1 0 

A A53 

2022 AC 


JSR 

GABRTC 

A A56 

F 0 0 4 A AA5C 


BEO 

: SD300 

AA56 

CA 


DEX 


AA59 

D0F2 A AA4D 


BNE 

: SD 1 0 0 

A AS6 

60 

;SD200 

RTS 


A A 5C 

2 0 E 9 A 7 

:SD300 

JSR 

SETCR2 

AA5F 

205b A5 


JSR 

TRTPLC 

AA 62 

A 56 7 


LDA 

#AR7 ERR 

A A 6 4 

4C3A7A 


JMP 

P3T0P 

A A67 

ADC 1 05 

SGSTUF 

LDA 

GROW 

A A6 A 

8DA005 


STA 

SAVROW 

AA6D 

ADCF05 


LDA 

GCOL 


) 
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D 1 : P I LOT , 

i 

i 

REESTABLISH VISIBLE TURTLE. 

COUNTR : s CQUNTR-t, * 

END. * 

SET FLAG. | 

RESTORE GROW & GCOL. 

GO? | 

NO. 

WALL HIT? 1 

YES -- DON'T PLOT POINT. 

PLOT INHIBIT. 

YES -- DON'T PLOT POINT. 

PLOT STOP POINT. 

. i 


CHECK SPEED SELECTION. 
FULL SPEED AHEAD. 

COUNT CLOCK TICKS. 

WAIT FOR ONE TICK. 


OPERATOR BREAK? 
YES. 

DONE? 

NO. 


* 1 
% 

% 

I 

I 


SET CURSOR, # 

PLACE TURTLE. 



YES 


SAVE PRIOR POSITION 



p llUT 


-- H.«. 
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C 1 * P I LOT . 


A A 7 0 

80 A 1 05 


STA 

SAVCOL 




» A A 7 3 

A 0 0 0 0 5 


LOA 

GCOL+l 




A 4 7o 

8 D A ^ 0 5 


STA 

SAVCOL+1 




A A 7 V 

60 


PTS 





A A 7 A 

ADA 005 

RGSTUF 

LOA 

Sa VROfc 

• 

9 

RESTORE PRIOR 

POSITION. 

A A 70 

8DC105 


STA 

GROW 




A AS 0 

EED905 


INC 

tuflag 




A A83 

AOAl 05 


LOA 

SAVCOL 




A A 6 ts 

80CF05 


SI A 

GCOL 




AA89 

ADA205 


LOA 

SAVCOL+1 




A A A C 

80D005 


STA 

GCOL-H 




AA8F 

CED905 


DEC 

TUFLAG 




AA92 

60 


RTS 





A A 9 3 

AD 1 305 

PLOT 

LDA 

PEN 

• 

f 

PEN UP? 


AA96 

3006 A A A9E 


BMI 

: PL090 

9 

9 

YES -- DON'T 

PLOT POINT. 

A AQ8 

8D9B05 


STA 

FCOLOR 




A A 9 6 

2u5b62 


JSR 

FPLCT 




A A 9 £ 

60 

SPL090 

RTS 






AA9F 


PROC 




; CONVERT ROW/COLUMN CURSOR INTO 

• 

REAL ADDRESS (FROM SAVMSC ON UP 

AA9F A201 

CNVRT 

LDX 

#0 1 

VERTICAL CALCULATIONS, 

AAAI EEAE05 


STX 

MLTTMP 

AAA A C A 


DEX 


VERTICAL CALCULATIONS, 

AAA 5 86F 7 


STX 

ADRESS+1 

CLEAR HI BYTE. 

A A A 7 A 55 A 


LDA 

R 0 Vv C R S 

ADRESS := R0WCRS*5, 

A A A 9 8DD i 05 


STA 

GRGW 

FOR VISIBLE TURTLE, 

A A A C 0 A 


ASL 

A 

MULTIPLY BY A. 

AAAD 26F7 


RuL 

ADRESS+1 


A A A F 0 A 


ASL 

A 


A A 8 0 26F7 


RQL 

ADRESS+ 1 ? CLEAR CARRY. 

A AB2 655 A 


ADC 

ROWCRS 

} ADD TO MAKE *5. 

AA.RA 85F6 


STA 

ADRESS 


A ABc 9002 A AABA 


BCC 

SCNVRO 


AAB6 E6F7 


INC 

ADRESS + 1 

} GET MODE 

A ABA AC3705 

JCNVRO 

LDY 

GSWODE 

A ABD P6BCB6 


LDX 

DHLINEf Y 

} GET NUMBER OF SHIFTS, 

AACO 06F6 

: CN VR 1 

ASL 

ADRESS 

i ADRESS := ADRESS *X, 

A AC. 2 26 F 7 


ROL 

ADRESS+ 1 

} DO THE DIVIDE. 

AACr CA 


DEX 



A AC5 P 0 F9 a AAC0 


BNE 

: CNVR 1 


A AC 7 A 556 


LDA 

CCLCRS+1 

HORIZONTAL CALCULATIONS. 

AAC9 EED905 


INC 

TUFLAG 

SET INTERLOCK FOR GCOL UPDATE 

A ACC BOP 0 05 


STA 

GCOL 1 1 

FOR VISIBLE TURTLE. 

AACF 4A 


LSR 

A 

SAVE LS8 FOR LATER. 

A ADO AS55 


LDA 

COLORS 

GET LOW BYTE. 
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A A 02 

8DCF05 


ST A 

GCOL 

AAD5 

CED905 


DEC 

TUFLAG 

A AOS 

B 1 3 G B3 


LDX 

D I V2TB r Y 

A ADb 

F 0 0 7 A A A E 4 


BEQ 

: CNVR3 

A ADD 

6 A 

: CNVR2 

RUR 

A 

AADE 

0EAE05 


ASL 

mlttmp 

AAEi 

CA 


DEX 


A AE2 

D0F9 A A ADD 


BnE 

JCNVR2 

A AE4 

65Fb 

: CNVR3 

ADC 

ADRESS 

A AE6 

9002 a AAEA 


BCC 

SCNVR4 

A AES 

E6F7 


INC 

ADRESS+1 

A AE A 

18 

: C N V R 4 

CLC 


A AEO 

6553 


ADC 

SAVHSC 

A AEO 

35 F 6 


ST A 

ADRESS 

AAEF 

A5F7 


LD A 

ADRESStl 

A A F l 

6559 


ADC 

SAVNSC+1 

A A F 3 

85F7 


STA 

ADRESS* 1 

A aF5 

8E30B3 


LDX 

DIV2TB, Y 

A a fs 

8DCC88 


LD A 

HMASK, X 

A A F 9 

2555 


and 

CGLCRS 

AAFO 

6DAE05 


ADC 

MLTTMP 

ABOO 

A8 


TAY 


A601 

B940B3 


LD A 

DMASKT 9 Y 

A 8 0 4 

8DB105 


STA 

DMASK 

A B 0 7 

8DB005 


STA 

SHFAMT 

ABOA 

A 0 0 0 


LOY 

*00 

A 8 0 C 

60 


RTS 


A60D 



PHOC 
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D 1 : P I LOT . 


> FOR VISIBLE TURTLE. 

; CLEAR INTERLOCK. 

? GET SHIFT AMOUNT . 

; CARRY CLEAR TF NO SHIFT. 

? ROLL IN THE CARRY. 

} SHIFT INDEX. 


? CARRY IS ALWAYS CLEAR. 


; MAKE A NEW INDEX. 

; GET THE FINAL MASK. 


? SET Y TO ZERO, 


INTEST -- TEST FOR POINT WITHIN SCREEN LIMITS. 

CALLING SEQUENCE: 

X = DTAB OFFSET TO X,Y PAIR (EACH TRIPLE PRECISION) 


JSR 

BEQ 


INTEST 

POINT IN SCREEN 


A = EDGE TEST BITS (000QLR6T), WHERE UOUT OF BOUNDS FOR THAT EDGE, 



ABOD 

84A9 

INTEST STY 

TEMP2+2 

• 

9 

SAVE Y REGISTER. 


ABO F 

A027 

LD Y 

#TENP2-DTAB 



# 

A 8 1 1 

A 9 0 0 

LD A 

#0 

} 

INITIALIZE RFSULT BYTE. 


A 3 1 3 

48 

PHA 





ABU 

85 A 6 

STA 

TEMP2+ 1 



# 

Ao 1 6 

8581 

LD A 

DTAB+1 , X 

9 

9 

CHECK SIGN OF POSITION. 


A61S 

3011 A AB2B 

BMI 

: I TO l 0 

9 

9 

NEGATIVE -- COULDN'T BE BEY 

m 

AB 1 A 

AD6105 

LD A 

xc 

; 

SETUP RIGHT EDGE X POSITION 


A 3 1 D 

85 A 7 

STA 

TEMP2 




Abl F 

20229C 

JSR 

DSCMI 

• 

9 

TEST RIGHT EDGE. 

# 

AB22 

9 0 1 A A A B 3 E 

PCC 

: I T 020 

9 

f 

INSIDE SCREEN. 


A824 

F 0 1 6 A AB3E 

BEQ 

: I T 0 20 




i 

i 

i 

> 

i 

i 

-> 

\ 

i » 

* • 
I 
♦ 

« 
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A626 6b PLA 


A027 0904 


ORA 

AERIGHT 

A929 D 0 1 2 *AB3D 


BNE 

: ITO 1 9 

A626 36 

: I TO 1 0 

SLC 


4 B?C A 9 0 0 


LD A 

AO 

A62E ED6105 


SBC 

XC 

A631 85 A 7 


STA 

TEMP2 

A633 CfoAS 


DtC 

TEMF2+1 

4 8 35 20229 C 


JSR 

DSCMI 

46 38 B 0 0 4 A A83E 


BCS 

S IT020 

AB3A 68 


PLA 


A63B 0908 


ORA 

DELEFT 

A83D 48 

;IT019 

PHA 


A83E E8 

: I T020 

I NX 


A83F E8 


I NX 


A04Q E8 


I N X 


A841 A 900 


LDA 

#0 

A 8 4 3 85 A 8 


STA 

TEMF2+1 

A845 B581 


LDA 

DTAB+lrX 

AB47 1014 A AB5D 


BPL 

: IT030 

AB49 38 


SEC 


AS4A A 90 0 


LDA 

no 

A 8 4 C ED6305 


SBC 

VC 

A 84 F 85 A 7 


STA 

TEMP? 

AB51 C6A8 


DEC 

TEMP2+ 1 

4653 20229C 


JSR 

DSCMI 

A B56 B U 1 5 A AB6D 


BCS 

7 1 T 0 4 0 


A858 

68 


PLA 


A 659 

0902 


ORA 

AEBOTOM 

A85B 

DOC F A A&6C 


BNE 

; I TO 39 

AB5D 

AQ6305 

: 1T030 

LDA 

YC 

A 66 0 

85 A 7 


STA 

TEMP2 

A 662 

20229C 


JSR 

DSCMI 

A 665 

9006 A A86D 


BCC 

5 IT040 

A66 7 

F 0 0 4 A A66D 


PEG 

: IT040 

A 669 

68 


PLA 


A66A 

0901 


ORA 

#ETCP 

A06C 

46 

7IT039 

PHA 


A66Q 

A 4 A 9 

: I T040 

LD Y 

TEMF2+2 

A66F 

66 


PLA 


A 6 7 0 

60 


RTS 



a e 7 i pkoc 
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D1 : PILOT . 

; OUTSIDE -- SET STATUS BIT. 

I (BRA). 

t SET UP LEFT EDGE POSITION. 

7 TEST LEFT EDGE. 

; INSIDE. 

; OUTSIDE -- SFT STATUS BIT. 

? ADVANCE TO Y POSITION. 

7 CHECK SIGN OF POSITION. 

7 POSITIVE — COULDN'T BE BELOW BOTTOM EDGE, 
7 SET UP BOTTOM EDGE POSITION. 

7 TEST BOTTOM EDGE. 

7 INSIDE. 

7 OUTSIDE -« SET STATUS BIT. 

7 (BRA). 

7 SETUP TOP EDGE POSITION. 

? TEST TOP EDGE. 

? INSIDE. 

7 OUTSIDE -- SET STATUS BIT. 

? RESTORE Y REGISTER. 

? GET STATUS BYTE FOP EXIT. 


PILOT 
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NEWDEL -- COMPUTE SLOPE DELTAS. 
CALLING SEQUENCE: 


( 



; 

JSR 

NEWDEL 





• 

9 

• 

BVS 

OVERFLOW 


#. 



9 

• 

9 

DELX 

: = GX1-GX2. 





• 

9 

• 

DELY 

:= GY1-GY2. 



A671 

A2A A 

f 

NEWDEL 

LDX 

#delx-dtab 

; DELX := GX 1 -GX? , 


A 6 7 3 

A03E 


LDY 

AGX1-DTAB 



A075 

2Q459A 


JSR 

DMO V I 



A 67 8 

Aoaa 


LDY 

AGX2-DTAB 



AB7 A 

20429C 


JSR 

DSUBI 



AS70 

7 0 OC A AB8B 


8 VS 

: ND092 


1 

AB7F 

A24C 


LDX 

#DELY-DTAB 

? DELY := GY1-GY2. 


*881 

A041 


LDY 

AGY1-CTAB 


* 

ABB3 

20459A 


JSR 

DMO V I 



AB86 

A 04 7 


LDY 

MGY2-DTAB 



A 6 36 

2 0 429C 


JSR 

osuei 



abbs 

60 

! ND092 

RTS 



• 

AB6C 



PROC 



f 



• 

9 







? NEWCUR -- MOVE NEW CURSOR 
• 

TO CURRENT CURSOR, 

• 



9 

• 

9 

'GX' 

: = ' G X N £ w ' 





• 

9 

«k 

'GY' 

:= 'GYNEW' 


4 

AB8C 

A206 

NEWCUR 

LDX 

Pb 

; 2 VARIABLES OF 3 BYTES EACH, 


ABBE 

55E 5 

: nc o i o 

LD A 

GXNEW-1, X 


4 

A690 

95E8 


STA 

G X — 1 1 X 



A 892 

CA 


DEX 




A693 

D 0 F 9 A AB8E 


8NE 

SNC010 


4 

AB95 

60 


RTS 



• 







4 

A B9 6 


• 

PRQC 






? M0D36 

0 

1 
i 

% 

THETA' = 'THETA 

' MODULO 360 

4 

AB96 

A 5 F3 

• 

9 

MOD360 

LD A 

THETA+1 

? SEE IF ANGLE IS NEGATIVE. 


AB98 

1022 A A68C 


BPL 

JMD020 

; no. 

• 

A69A 

A272 


LDX 

STHETA-DTAB 

i YES. 


A89C 

20F19C 


JSR 

DNEGI 

? GET ABSOLUTE VALUE. 

• 

AB9F 

A 5 F 3 


LDA 

ThETA+1 

J THETA = 32768 IS A SPECIAL CASE, 


ABA 1 

3043 A A6E6 


BMI 

: -y D 0 3 0 





PILOT 
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» AH A 3 3U96AB 


JSR 

MCD360 


+** RECURSIVE CALL *** 

AdAo A 8 F 2 


LOA 

THETA 

t 

TEST FOR RESULT s 0. 

» A d A fl 05F3 


ORA 

theta-m 



A 8 A A F 0 52 A A8F£ 


BEQ 

: MOO 99 

) 

YES -- DONE. 

» ABAC A9bd 


LOA 

U LOW 3b0 

} 

NO -- THETA s 360 - MOD ( ABS (THET A ) ) . 

abae 3a 


SEC 




A B A F ESF2 


SBC 

theta 



i AB81 8 5 F 2 


STA 

theta 



A8H3 A901 


LOA 

* HIGH 360 



ABS5 E5F3 


SBC 

THETA+1 



A6P7 8 5 F 3 


STA 

THET A + l 



A0P9 4CEEAB 


JMP 

: MD090 



ABSC ABF3 

:MP020 

LOA 

THETA+1 

• 

9 

COMPARE WITH 360. 

ABBE C90 1 


CMP 

n HIGH 360 



A BC 0 DQ04 A ABC6 


8NE 

: MD025 



ABC2 A5F2 


L D A 

THETA 



A 8C4 C968 


CMP 

n LOW 360 



A 8Co °02o a ABEE 

; MD025 

BCC 

: MD090 

? 

THETA < 360. 

A BCB A968 


LOA 

A LOW 360 

• 

9 

PREPARE TO DIVIDE 8Y 360. 

A 6C A 65 A 7 


STA 

TEMP2 



A BCC A 90 1 


LOA 

* HIGH 360 



A6CE 85A6 


STA 

TEMP2+1 



ABDO 8 4 A 9 


STY 

TEMP2+2 



A602 A272 


LDY 

#THET A-DTAB 



A 004 A027 


LDY 

#TE*vP2-DTAB 



A 806 20879C 


JSR 

DDIVI 



A 009 A 4 A 9 


LDY 

TEMP2+2 



ABDB A 5 A 1 


LDA 

TEMP 

m 

9 

REMAINDER IN 'TEMP' AFTER DIVIDE, 

ABDO 85F2 


STA 

THETA 



ABDF A5A2 


LDA 

TEMP+1 



ABF 1 85F3 


STA 

THETA+1 



A b E3 4CEEAB 


JMP 

: MDG90 



A0E6 A960 

: MD03 0 

LDA 

n LOW 352 

9 

9 

-32766 MOD 360 = 352 

ABES S5F2 


STA 

THETA 



AbEA A 90 1 


LDA 

H HIGH 352 



ABEC 85F3 


STA 

THETA+1 



A8EE EED905 

: M D 0 9 0 

INC 

TUFLAG 

r 

INTERLOCK FOR GANGLE UPDATE, 

A d F i A5F2 


LDA 

THETA 



ABF3 600205 


STA 

GANGLE 



A 6 p 6 A5F3 


LDA 

THETA+1 



ABFc 6DD305 


STA 

GANGLE+1 


CLEAR INTERLOCK. 

A6F6 C t C 9 0 5 


!UC 

TUFLAG 

• 

9 

ABFE 60 

M D 0 9 9 

RTS 





ATARI CAPAC Assembler Ver l.OA Page 240 
PILOT -- H.B. STEWART D 1 : PILOT . 


A6PF 


t 


AC22 


PROC 

SETCUR SET HANDLER CURSOR 
CALLING SEQUENCE; 




? Y = 

• 

DTAB OFFSET 



9 

? JSR 

? 

SETCUR LD A 

SETCUR 

AdPR 

B98200 

DT A8 + 2 r Y 

AC 02 

2 A 

ROL 

A 

AC 0 3 

898000 

LD A 

DTAB, Y 

AC Ofe 

6D6105 

ADC 

XC 

AC09 

8555 

ST A 

COLORS 

AC06 

P96100 

LD A 

DTAB+ 1 , Y 

ACOE 

6Dfc>2 05 

ADC 

XC+1 

AC 1 1 

8556 

STA 

COLCRS+ 1 

A C 1 3 

B98500 

LuA 

DTAB+5 , Y 

A C 1 6 

498 0 

EGR 

ASB 

AC16 

2 A 

ROL 

A 

AC 1 9 

AD6305 

LDA 

YC 

AC 1 C 

F98300 

SBC 

DTAB+3, Y 

AC 1 P 

8554 

STA 

RONCRS 

AC21 

60 

RTS 



PROC 

GABRTC -- GRAPHICS GPERATOR ABORT CHECKER 

calling sequence; 


i 

I 

i 

i 

* 

> 

4 t 

• h 


% 



• 

9 

• 

9 

JSR 

GABRTC 






• 

9 

» 

BEG 

ABORT 



m 

AC22 

A511 

9 

GABRTC 

LDA 

BREAK 

• 

9 

OPERATOR ABORT? 


AC24 

0004 A A C 2 A 


BNE 

:GA090 

• 

9 

NO, 

• 

AC26 

C 6 1 X 


DEC 

BREAK 

• 

9 

YES -- RESET FLAG. 


AC28 

A 9 0 0 


LDA 

#0 

} 

SET EXIT STATUS. 

» 

AC2 A 

60 

: GAQ90 

R1S 





AC20 



PROC 




• 



a 

9 

? ia/ALLCK 

m m 

CHECKS TO SEE 

IF PIXEL 

VALUE IS A WALL. 


calling sequence; 

A = PIXEL VALUE COO-SOF) 

JSR WALLCK 


« 

t 
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1 

• 

BNE 

PIXEL IS 

A WALL 

A C<?6 

OA 

9 

aALLCK 

ASL 

A 


; X2 . 

AC?C 

A A 


Tax 




AC?D 

FOOE A AC3D 


BEG 

: AL090 


? BACKGROUND CAN'T BE 

AC2F 

BD3E AC 


LD A 

KMASK , X 



AC32 

2DCD05 


AND 

AALLS 



AC35 

D 0 0 6 A AC3D 


BNE 

! A L 0 9 0 


} FOUND US A AALL. 

A C 3 7 

BD3FAC 


LD A 

A M A S K + 1 , X 



A C 3 A 

PDCE05 


AND 

AALLS+1 



AC3D 

60 

: WL090 

RTS 



; RETURN WITH CC SET. 

AC3E 

0000010002 

WMASK 

DA 

0,S01 ,S02 

, $04 , 

$08, $10, $20, $40, $60 

A C 5 0 

0001000200 


DA 

5 1 0 0 , $ 2 0 0 

,$400 

,$800, $1000, $2000, $4000 

AC5E 



PROC 






? GREAD 

-- READ 

GRAPHICS 

DATA 

FROM SCREEN. 


CALLING SEQUENCE! 

CURSOR ALREADY SET TO LOCATION TO READ. 
JSR GREAD 

A = VALUE OF PIXEL AT CURSOR LOCATION. 

C = 0 IF TURTLE ON SCREEN, 1 IF OFF, 

; EXECUTE MODE? 
NO, 


NO, 


AC5E 

A 59 2 

GREAD LDA 

EXEC 

• 

f 

A C6 0 

F032 A AC94 

BEQ 

: GR090 

• 

9 

AC62 

A U 1 4 0 5 

LDA 

GRFLAG 

m 

9 

AC65 

F02D A AC94 

BEQ 

: GRQ90 

• 

/ 

AC67 

A206 

LDX 

86 


A C69 

P5E6 

! GPO 1 0 LUA 

G X - 1 , X 

• 

9 

AC6B 

2 A 

ROL 

A 

m 

9 

AC6C 

B5E9 

LDA 

GX-3,X 


AC6E 

6900 

ADC 

80 


AC70 

95BB 

ST A 

G X 1 -3 , X 


AC72 

BSE A 

LDA 

G X -2 , X 


AC 74 

6900 

ADC 

80 


A C 76 

956C 

s r a 

GX 1 -2 , X 


AC76 

CA 

DEX 



C79 

CA 

DEX 



AC7A 

CA 

DEX 



AC7B 

DOEC A AC69 

BNE 

S GRO 1 0 


AC7D 

A2 3E 

LDX 

8GX1-DTAB 

• 

9 

AC 7 F 

200DAB 

JSR 

INTEST 


AC 82 

D010 A AC 94 

BNE 

;GP090 

• 

9 


? YES -- CHECK FOR POINT IN SCREEN LIMITS, 
• m n T T im i TMITS -- RETURN VALUE OF ZERO. 


r 
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AC84 

8CDSQ5 


SI Y 

GRTEMP 


AC87 

A 0 3E 


LDY 

#GX 1 -DT AB 


AC 89 

POFFAB 


JSR 

SETCUR 


AC8C 

207CB2 


JSR 

TSTPIX 


AC8F 

ACD805 


IDY 

GRTEMP 


AC92 

18 


CLC 



AC93 

60 


RTS 



AC 9 A 

A 90 0 

; GR090 

LDA 

#0 


AC96 

38 


SEC 



AC97 

60 

VTSRET 

RTS 



AC98 



PROC 



AC9b 

A900 

VTSENS 

LDA 

#0 


AC9A 

8D5005 


ST A 

TRTSNS 

0 

AC9D 

A D 1 A 05 


LDA 

GRFLAG 


ACAQ 

F0F5 A AC97 


BEQ 

VTSRET 

0 

ACA2 

2 067 A A 


JSR 

SGSTUF 


ACA5 

98 


T Y A 



ACA6 

AS 


PHA 



AC A 7 

AD 1 3 05 


LDA 

PEN 


acaa 

AS 


PHA 



ACAB 

AD5E05 


LDA 

EDGRUL 

0 

ACAE 

AS 


PHA 


ACAF 

A206 


LUX 

Mb 

0 

ACB 1 

B5EB 

* STO 1 0 

LDA 

GX-1 ,X 


ACB3 

AS 


PHA 



AC84 

CA 


DEX 


0 

ACB5 

DOFA A ACB1 


BNE 

: STO 1 0 


ACB7 

ADCD05 


LDA 

walls 

0 

ACB A 

AS 


PHA 

WALLS+1 


AC SB 

ADCE05 


LDA 


ACSE 

AS 


PHA 


• 

ACBF 

AE4E05 


LDX 

ESTKP 


ACC2 

F 0 0 6 A A C C A 


BEQ 

! STO 1 7 

m 

ACCA 

B592 

: STO 1 5 

LDA 

EXPSTK" 1 1 


ACC6 

46 


PhA 


0 

ACC 7 

CA 


DEX 

: STO 15 


ACCS 

DOFA A ACC4 


BNE 

0 

ACCA 

A90 0 

: STO 1 7 

LDA 

p 0 


ACCC 

8DCD05 


ST A 

WALLS 


ACCF 

8DCE05 


STA 

WALLS+1 

0 

ACD2 

A93C 


LDA 

APCUF 


A C D A 

8D1305 


STA 

PEN 


AC07 

AD5E05 


LDA 

EDGRUL 

0 

ACDA 

C902 


CMP 

#EHALT 


AC DC 

DO 05 A ACE3 


BNE 

SST020 

0 

ACDE 

A 9 0 8 


LDA 

AEFREE 


A C F 0 

8D5E05 


STA 

EDGRUL 

• 









? SAVE Y REGISTER. 

SET CURSOR POSITION. 

? GET PIXEL VALUE. 

; RETURN VALUE OF ZERO. 

? ASSUME NO OBSTACLE INITIALLY. 

; GRAPHICS MODE? 

; NO -* ALL DONE? 

J SAVE GCOL & GROW. 

; SAVE. Y REGISTER. 

? SAVE PEN. 

? SAVE EDGE RULE. 

; SAVE TURTLE LOCATION. 


? SAVE WALL SELECTIONS. 

? ANYTHING IN EXPSTK? 

; no. 

? YES -- SAVE IT ALL. 

; CLEAR WALLS. 

; SET PEN TO UP. 

? IF EDGE RULE s HALT, CHANGE TO FREE, 


PILOT 
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> ACE3 A 9 0 5 

: ST020 

L D A 

#G0 

j 

SIMULATE A GO 1. 

ACES 8DD405 


STA 

GROPP 



ACES A 90 0 


LD A 

A 0 



ACEA 8 594 


STA 

EXPSTK+ 1 



ACEC A 9 0 1 


LOA 

#1 



ACEE 8 S 93 


STA 

E XPSTK 



A C F 0 2032A 2 


JSR 

CALDEL 



ACF3 2 0 7 A A 6 


JSR ‘ 

GMOVE 



A C F6 AE4£05 


LDX 

ESTKP 

; 

RESTORE EXPSTK? 

ACF9 F 0 0 6 A AD06 


8EQ 

: ST023 

• 

f 

NO. 

ACFB A200 


LDX 

FO 



AC FO 66 

! ST022 

PLA 




ACFE 9593 


STA 

EXPSTK, X 



ADOO E6 


I N X 




AD01 EC4E05 


CPX 

ESTKP 



A D 0 4 DO F 7 A ACFD 


BNE 

J ST022 



AD 06 66 

! ST023 

P LA 




AD07 8DCE05 


STA 

WALLStl 



ADO A 68 


PLA 




AD06 8DCD05 


STA 

WALLS 



ADOt 205EAC 


JSR 

GREAD 



Aon eooe a adib 


BCS 

; S TO 25 

• 

NOT IN SCREEN. 

A 0 J 3 2026AC 


JSR 

to A L L C K 

• 

9 

WALL? 

AD 1 6 FOO 9 A AD21 


BEQ 

;ST030 

m 

9 

NO 

AD 1 8 CE5005 


DEC 

TRTSNS 



AD 1 8 EE5005 

: STOPS 

INC 

TRTSNS 

• 

YES -- SET SENSOR. 

AD 1 E EE5005 


INC 

TRTSNS 



A D2 1 A20 0 

: ST030 

LDX 

U 0 

• 

9 

RESTORE TURTLE POSITION 

A D23 68 

SST040 

PLA 




A 024 95FC 


STA 

GX,X 



AD26 95E6 


STA 

GXNEto, X 



AD26 E8 


I NX 




A D29 F 0 0 6 


CPX 

F 6 



AD2B D0F6 A AD23 


BNE 

:SToao 




ADPD 68 
A02E 8D5E05 
A03 1 68 

AD32 8D1305 
AD35 207AAA 
A D 38 68 

A039 A8 
AD3 A 60 

A 036 


PLA 


? 

RESTORE 

EDGE 

RULE. 

STA 

PLA 

EDGRUL 

• 

9 

RESTORE 

PEN. 


STA 

JSR 

PEN 

RGSTUF 

• 

9 

RESTORE 

GCOL 

& GPOto 

PLA 

TAY 


• 

9 

RESTORE 

Y-PEGISTFR. 

PTS 






PROC 







t 


SI^VAL 


GET VALUE OF SIN(THETA+A*90) 



i 
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} CALLING SEQUENCE: 

9 

} A = QUADRANT OFFSET (0-3) 

? 'T MET A ' = ANGLE (0-359) 

} JSR SINVAL 


'TEMP' = SIN ( THETA + A*90) 



AD3B 

8543 

SINVAL 

STA 

TEMP+2 

• 

9 

SAVE QUADRANT OFFSET. 


AD3D 

8 4 A 4 


STY 

TEMP+3 




AD3F 

A 0 72 


LOY 

ATHETA-DTAB 

) 

'ACC' s 'THETA'. 


A 04 1 

2 0 A 2 9 D 


JSR 

OLOADA 

? 

X = 'ACC' - 'DTAB'. 


A Q44 

A 95 A 


LD A 

A LOW 90 

• 

9 

'TEMP' = 90. 


AD 46 

8 5 A 1 


STA 

TEMP 




AD48 

A900 


LD A 

A HIGH 90 




AO 4 A 

8542 


STA 

TENF+i 



# 



? NORMALIZE 

THETA TO 0-90 

RANGE 

AND USE TRIG EQUALITIES TO COMPUTE SINE 


AD4C 

A021 

:SN010 

LDY 

ATEMP-DTAB 

• 

9 

IS 'ACC' <= 90. 

HP 

AD4E 

20159C 


JSR 

DCMPI 




A D5 i 

F 0 0 9 A AD5C 


BEQ 

: S N 0 2 0 

% 

9 

YES. 


AD53 

9007 A AD5C 


BCC 

! S N 0 2 0 

• 

9 

YES. 

1 

AD55 

E6A3 


INC 

TEMP+2 

• 

9 

NOT YET -- INCREMENT QUADRANT. 


A D5 7 

20429C 


JSR 

csuai 

• 

9 

'ACC' s 'ACC' - 90. 

• 

A 05 A 

00 F 0 A AD4C 


8NE 

: SNO 1 0 

• 

9 

(6RA UNLESS RESULT = 0). 


AD5C 

A6E2 

JSN020 

LDX 

ACC 

• 

9 

RESULT IS 0 TO 90 FOR TABLE LOOKUP. 

• 

A05E 

A5A3 


LDA 

TEMP+2 

9 

9 

QUADRANT A. 


AQ60 

2903 


AND 

A $0 3 

9 

9 

MODULO 4. 


AD62 

FGJS A A Q 7C 


BEQ 

: SN 1 00 

9 

9 

QUADRANT 0. 

• 

A 084 

C901 


CMP 

A 1 




AD66 

0006 A AD70 


6NE 

: SN040 



• 

A068 

A95 A 


LDA 

A 9 0 

• 

9 

QUADRANT 1. 


A06 A 

E5E2 


SBC 

ACC 



• 

AD6C 

A A 


TAX 





AD60 

4C7CA0 


JMP 

: SN 1 0 0 



• 

AD70 

C902 

: SN040 

CMP 

A2 




407 2 

F 02 0 A AD94 


BEQ 

: SN150 

9 

9 

QUADRANT 2. 

• 

A D74 

A95A 


LDA 

A90 

9 

9 

QUADRANT 3. 


A076 

E5E2 


SBC 

ACC 




AD78 

AA 


TAX 




# 

A079 

4C94AD 


JMP 

; SN150 




AD7C 

A900 

:SN100 

LDA 

AO 

9 

9 

GET VALUE FROM TABLE. 

• 

A07E 

E057 


CPX 

A87 

9 

9 

87 THRU 90? 


ADS 0 

9006 A ADS A 


BCC 

: S N 1 2 0 

9 

9 

NO -- USE TABLE. 

• 

AD82 

85 A 1 


STA 

TEMP 

} 

SPECIAL CASE -- FORCE TO 1.0. 


4084 

A. 90 1 


LDA 

A 1 
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01 l PILOT, 

AD86 

8SA2 


3 T A 

TEMP ♦ 1 



AD88 

0012 A 

A D9C 

BNE 

* SN900 

} 

(BRA) . 

4P8A 

8SA2 

j SM20 

ST A 

TEMP* 1 

1 

M S8 * 0, 

AD8C 

8Q9F40 


LOA 

SINTA8, X 



A 08 F 

854 1 


ST A 

TEMP 

; 

LSB s VALUE FROM TABLE. 

AD91 

«C9CAD 


JMP 

! S N 9 0 0 



4094 

207C40 

JSM50 

JSR 

:SN100 

; 

GET VALUE TO 'TEMP' *** RECURSIVE CALL 

A0<>7 

4221 


LDX 

*TE*P-OTAB 

• 

9 

then negate value. 

AQ99 

20F19C 


JSR 

DNEGI 



AD«?C 

AAAA 

: SN900 

LDY 

T E M P ♦ 3 



4D9£ 

60 


RTS 






? SINE 

TABLE 

VALUES FOR 0 

THROUGH 

86 DEGREES 


= AD9F 

S I N TAB 

Z * 

? SINCX) 

* 256 

X 


A09F 

0U0A090D12 

DB 

0,4,9,13,18 

0 

, 

0-4 

AD A A 

16181F2428 

DB 

22,27,31,36,40 

• 

9 

5-9 

ADA9 

2C313S3A3E 

DB 

44,49,53,58,62 

9 

9 

10-14 

ADAE 

A2A /AB4F53 

DB 

66,71,75,79,83 

9 

9 

15-19 

ADB3 

58SC606A66 

DB 

08,92,96,100,104 

i 

20-24 

AD38 

6C707A787C 

DB 

106,112,116,120,124 

9 

9 

25-29 

AOPD 

8O8A88808F 

D6 

128, 132, 136, 139, 143 

0 

9 

30-34 

A0C2 

93969A9EA1 

DB 

147,150,154,156,161 

7 

35-39 

ADC7 

A5A8ABAFB2 

DB 

165, 168,171,175,178 

• 

9 

40-44 

ADCC 

P58S8BBEC 1 

DB 

181,184,167,190,193 

9 

9 

45-49 

AD01 

C4C7CACCCF 

DB 

196,199,202,204,207 

9 

9 

50-54 

ADDS 

D2D407D9DB 

DB 

210,212,215,217,219 

• 

9 

55-59 

ADDB 

DEE 0E2E4E6 

DB 

222,224,226,228,230 

9 

9 

60-64 

ADEO 

EdEAECEDEF 

08 

232,234,236,237,239 

• 

9 

65-69 

AUE 5 

F1F2F3F5F6 

D0 

241,242,243,245,246 

9 

9 

70-74 

AOEA 

F7F8F9FAFB 

DB 

247,248,249,250,251 

0 

9 

75-79 

ADEF 

fcfdfefeff 

DB 

252,253,254,254,255 

* 

9 

80-84 

AO FA 

F F p F 

D0 

255,255 

9 

9 

85-66 


A0F6 PROC 

? TMUUT -- TRIPLE PRECISION MULTIPLY 

; CALLING SEQUENCE: 

• 

; 'EXPSTK # = fcORD OF SIGNED DATA 

• 'TEMP' s WORD OF SIGNED DATA 

• 

? JSR TMULT 

• 

? 'GNUMB'tl = MSB OF RESULT 

; 'GNUNB'+O = MIDDLE OF RESULT 

; 'GNUMB't2 = LSB OF RESULT 


( 
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( 

ADFb 

A 9 0 0 

TMULT 

LD A 

40 

ADFS 

804905 


STA 

GNUNB 


ADF0 

S DA A 05 


STA 

GNUMB+1 

< 

AOFt 

SD4R05 


STA 

GNUMB+2 


AEOl 

85 A 6 


STA 

TEMP+5 


AE03 

85 AS 


STA 

TEMP+4 


AE05 

A5A2 


LDA 

TEMPtl 


AE07 

1002 A AE06 


BPL 

:TM005 


AE09 

C 6 A 6 


DEC 

TEMF+5 


aeob 

A594 

STM005 

LDA 

EXPSTK+1 


AEOD 

1002 A AE 1 1 


BPL 

: TM008 

t 

AEOF 

C6A5 


DEC 

TEMP+4 


AEU 

A218 

STM008 

LDX 

424 

* 

At 1 3 

ObA 1 

: T M o l o 

ASL 

TEMP 


AE15 

26A2 


ROL 

TEMF+1 


AE17 

2b A6 


ROL 

TEMP+5 


AE19 

9019 A AE34 


BCC 

: TM020 

• 

AE1B 

16 


CLC 



AE1C 

A D 4 6 0 5 


LDA 

GNUMB+2 


AE1F 

6593 


ADC 

EXPSTK 

• 

AE21 

8 D 4 B 0 5 


STA 

GNUMB+2 


AE24 

AD4905 


LDA 

GNUMB+O 


AE27 

6594 


ADC 

EXPSTK+1 

• 

AE29 

6D4905 


STA 

GNUMB+O 


AE2C 

A D 4 A 0 5 


LDA 

GNUMB+1 


AE2F 

65A5 


ADC 

TEMP+4 

• 

A E 3 1 

8D4A05 


STA 

GNUMB+1 


AE34 

CA 

: TM02Q 

DEX 


• 

AE35 

FOOC A A £ 4 3 


BEQ 

: TM090 


AE37 

CE4605 


ASL 

GNUMB+2 

* 

AE3 A 

2E4905 


ROL 

GNUMB+O 


AE3D 

2E4A05 


RUL 

GNUMB+1 


AE40 

4C13AE 


JMP 

:TM010 

# 

AE^3 

60 

:TM090 

RTS 



; CLEAR RESULT REGISTER. 


? SIGN EXTENSION BYTES. 

? EXTEND SIGN OF 'TEMP'. 

; SIGN IS POSITIVE. 

? SIGN IS NEGATIVE. 

? EXTEND SIGN OF 'EXPSTK', 
; SIGN IS POSITIVE. 

? SIGN IS NEGATIVE. 

; SETUP LOOP COUNT. 


♦ » 


AE44 


PROC 

TADDI — TRIPLE PRECISION ADDITION 
CALLING SEQUENCE: 

X = DTAB OFFSET 
JSR TADCI 
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1 . 0 A Pape 2u 7 

D1 JPILOT. 


A EAR 

1 8 

A £ A 5 

B582 

AEA7 

6DA0O5 

AE4A 

P562 

AEAC 

6580 

aeae 

6D4905 

AE51 

9580 

AE 5 3 

B58 1 

AE55 

6DAA05 

AE56 

9 5 81 

A E5 A 

60 


# 

; 

; 

? NOTE 

; 

TADDI 


DTAB(X) = HTABCX) 
MSB IS OTABCX+1) , 


CLC 
LDA 
A 0 C 
STA 
LDA 
ADC 
ST A 
LDA 
ADC 
sta 
PTS 


DTAB+2, X 
GNUMB+2 
CTABt2,X 
DTAB+0 , X 
GNUMB 
DTAB+OfX 
CTAB+1 ,X 
GNUMB+1 
DTAB+1 #X 


+ 'GNUMB' 

RIDDLE IS DTAPCX+O), 


LSB IS DT AB ( X + 2 ) 


AE5B 


PROC 

? OMULT -« 16 * 16 YIELDING 32 BIT SIGNED MULTIPLY 
? CALLING SEQUENCE: 




• 

r 

'G ACC ' 

= 2 byte multiplicand. 



• 

# 

m 

Y = DTAB OFFSET TO 

2 BYTE 

MULTIPLIER. 



r 

9 

9 

JSR 

QMULT 





} 

m 

9 

m 

'GACC' 

[4 BYTE! = ' 

GACC ' 12 

BYTE] * 'DTAB 

AE5B 

A204 

qmult 

LDX 

*4 



AE5D 

B5CD 

: GMG 1 0 

LDA 

GACC-1 r X 



AE5F 

95D 1 


STA 

GTEMP-1 f X 



AE61 

A 9 0 0 


LDA 

#0 



A £63 

95CD 


STA 

GACC-1 ,X 



AE65 

9505 


STA 

GTEMP2-1,X 



A E 6 7 

CA 


DEX 




AE6B 

D0F3 A AE5D 


BNE 

: GMO 10 



A E6 A 

096000 


LDA 

D7 A6,Y 



AE6D 

65Dfe 


STA 

GTEMP2 



AE6F 

P96100 


LOA 

DTAB + 1, Y 



AE72 

65D7 


STA 

GTEMP2 + 1 



AE74 

100b *AE7C 


BPL 

: QMO 1 5 



AE76 

A9FF 


LDA 

#- 1 

• 

9 

EXTEND SIGN. 

AE76 

6506 


STA 

GIEMP2+2 



A£7 A 

8509 


STA 

GTEMP2+3 



AE7C 

A 503 

JQM015 

LDA 

GTEMP41 



AE7E 

1004 *AE84 


BPL 

SQM020 



AE80 

A9FF 


LDA 

P-1 

• 

EXTEND SIGN, 

A £82 

0002 A AL86 


BNE 

SQM022 

• 

f 

CBPA) . 
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AE8a 

A90 0 

: QM0? Q 

LDA 

80 




AE86 

BSD 4 

: GM022 

STA 

GTERP+2 




AE88 

65D5 


ST A 

GTFRP+3 




ALBA 

A220 


LDX 

8 32 

• 

» 

SETUP LOOP 

COUNT. 

AE8C 

0bD2 

JGM030 

ASL 

GTEVP 

m 

r 

LONG SHIFT 

LEFT. 

AE8E 

26D3 


RQL 

GTENP+1 




A £ 9 0 

2604 


ROL 

GTERP+P 




AE92 

26D5 


RGL 

GTERP+3 




AE9 4 

9019 A AE A F 


BCC 

: Qy-040 

f 

MSB MOT SET 


AE96 

lb 


CLC 


9 

9 

BIT SET — 

ADD TO PARTIAL 

AE97 

A5CE 


LDA 

G ACC 




AE99 

6506 


ADC 

GTENP2 




AE96 

B5CE 


STA 

G ACC 




AE9D 

A5CF 


LDA 

GACC+1 




AE9F 

65D7 


ADC 

GTEFP2+1 




AEA1 

65CF 


STA 

GACC+1 




At A3 

A5D0 


LDA 

G ACC + 2 




AEA5 

65D8 


ADC 

GTERP2+2 




AEA7 

5500 


STA 

G ACC + 2 




AEA9 

A5DJ 


LDA 

GACC+3 




A£AB 

6509 


ADC 

GTENP2+3 




AEAD 

8501 


STA 

GACC+3 




AEAF 

CA 

: QMO 4 Q 

DEX 


• 

9 

DONE? 


AE80 

FOOB a AE90 


BEG 

:QW090 

9 

9 

YES, 


AEB2 

06CE 


ASL 

G ACC 

} 

LONG SHIFT 

LEFT. 

A£B 4 

26CF 


RQL 

GACC+1 




AE96 

2600 


RQL 

GACC+2 




AE88 

26D 1 


RQL 

GACC+3 




ALBA 

4C8CAE 


JMP 

! QMO 3 0 




AEBD 

60 

:QM090 

RTS 






AE6E 

9 

PROC 




t 

• 

t 

a 

QDIV -- 32 DIVIDED BY 

16 YIELDING 16 BIT SIGNED DIVIDE. 


9 

9 

9 

9 

CALLING SEQUENCES 




9 

9 

9 

'GACC' s 4 BYTE 

DIVIDEND. 



• 

9 

9 

Y = DTAB OFFSET 

TO 2 BYTE 

DIVISOR. 


9 

a 

9 

JSR QDIV 




9 

9 

BN E OVERFLOW 




9 

9 

9 

'GACC' 12 BYTE] * 

'GACC' [4 

BYTE] / 'DTAB' (Y) [2 BYTE] 


9 

9 

X = DTAB OFFSET 

TO 'GACC' 

• 


9 

- £ E8E QDIV = * 
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AESt P98000 


LDA 

DT4R, Y 

m A t C I 198100 


ORA 

DTAB+ 1 , V 

A£C4 F 06b A AP2C 


BEQ 

: QD097 

» AEC6 4921 


L D A 

*32+1 

A EC6 8 5 A 1 


STA 

TEMP 

p aeca A 9 0 0 


LD A 

n o 

AECC 85D2 


STA 

G TEMP 

A ECE 8503 


STA 

GTEMP+1 

AE DO 898100 


L D A 

DTAB+1 , Y 

AED3 8SA2 


STA 

TEMP+1 

» AED5 1008 A AEDF 


BPL 

JOD003 

AED 7 R6 


TYA 


AEOd AA 


TAX 


AED9 20F19C 


JSR 

DNEGI 

AEDC 2036AF 


JSR 

GNEGA 

AEDF A5D 1 

: QD003 

L D A 

G ACC + 3 

AEE1 85A3 


STA 

TEMP+2 

AEE3 1003 A A£E8 


BPL 

: QD 0 0 6 

AEE5 2036 AF 


JSR 

GNEGA 

AEE8 A252 

;GD006 

LDX 

fgtemp-dtab 

AEEA 16 


CLC 


AEE9 2bCE 

SGDOIO 

ROL 

G ACC 

AEED 26 CF 


RuL 

GACC+1 

AEEF 26D 0 


ROL 

GACC+2 

A£F1 26D1 


ROL 

GACC+3 

AEF3 26D2 


ROL 

GTEMP 

4EF5 26D3 


ROL 

GTEMPtl 

AEF7 C6A1 


DEC 

TEMP 

AEF9 FOOB A AF06 


BEQ 

: QD090 

AEFQ 20159C 


JSR 

DCMFI 

AEFE 90EB A AEEB 


8CC 

s ao o i o 

AFOO 20429C 


JSR 

DSUBI 

AF03 36 


SEC 


AF04 B 0E5 A A£EB 


BCS 

! GDO 1 0 

A F06 20159C : 

QD090 

JSR 

DCMPI 

A F 0 9 900 7 A A F 1 2 


BCC 

:QD091 

AFOB A 2 4 E 


LDX 

fgacc-dtab 

AFOD A901 


LD A 

#1 

AFOP 20049D 


JSR 

DADDS 

A F 1 2 A5 A 3 

GiDOPl 

LD A 

T EMP + 2 

A F 1 4 1 003 A AF19 


BPL 

: GD093 

A F 1 6 2036AF 


JSR 

GNEGA 
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D 1 : P I LOT , 

; CHECK FOR DIVIDE BY ZERO. 

; LOOP COUNT. 

i CLEAR REMAINDER TO START. 

? SEE IF DIVISOR IS NEGATIVE. 

; SAVE FOR LATER. 

; no. 

? YES -- NEGATE DIVISOR ... 

? ... & DIVIDEND. 

? SEE IF DIVIDEND IS NEGATIVE. 
? SAVE FOR LATER, 

; NO. 

? YES -« NEGATE IT. 

} LONG ROTATE LEFT. 

; REMAINDER * 2 ♦ NE\N BIT. 

? DONE? 

? YES. 

; IS REMAINDER < DIVISOR? 

? YES. 

} NO -- CORRECT FOR THAT. 

? (BRA). 


? DONE -- SEE IF RESULT IS TO BE NEGATED? 
; NO. 

} YES. 


Page 250 

D 1 : P I LOT . 
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< 

A F 1 9 

A 5 A 2 

: QD093 

LD A 

TENF+1 

A F 1 6 

1005 A AF22 


PPL 

100096 


ARID 

98 


TY A 


AF1E 

AA 


TAX 



A F 1 F 

2CF19C 


JSR 

DNEGI 

i 

AF22 

A24£ 

:GD096 

LDX 

AGACC-C 




; CHECK 

FOR OVERFLOW IF 


A F 2 4 

A5CF 


LD A 

GACC+1 


A F26 

1009 A AF31 


PPL 

! GiD098 


A F 28 

A5D0 


LD A 

G ACC + 2 


AF2A 

25D 1 


AND 

G ACC + 3 


AF2C 

C9FF 

SUD097 

CMP 

*-l 

r 

A F ?E 

4C35AF 


JMP 

: CD099 


A F 3 1 

A 5D 0 

S GDQ96 

LDA 

G ACC + 2 

0 

AP33 

0501 


ORA 

GACC+3 


AF35 

60 

! GiD 0 99 

RTS 


9 






t 

AF36 


• 

PROC 





9 

7 ONEGA 

-- 4 

BYTE NEGA' 

• 



• 

9 






; CALLING SEQUENCE: 

• 

• 



t 

• 

! 

• 

JSR 

GNEGA 




7 

'GACC 

' [4 BYTE] 

• 



• 

t 

SEC 



A F 3b 

36 

QNEGA 



AF37 

A 9 0 0 


LDA 

no 


AF39 

E5CE 


SBC 

GACC 


AF3b 

85CE 


STA 

GACC 

• 

AF3D 

A 9 0 0 


LDA 

no 


AF3F 

E5CF 


SBC 

GACC+1 


A F 4 1 

85CF 


STA 

GACC+1 

• 

AF43 

A90 0 


LDA 

no 


AF45 

E5D0 


SBC 

GACC+2 

# 

AF47 

65D0 


STA 

GACC+2 


A p 4 9 

A900 


LDA 

no 

# 

AF4B 

E5D 1 


SBC 

GACC+3 


AF4D 

85D 1 


STA 

GACC+3 


? SEE IF DIVISOR WAS NEGATED AT BEGINNING. 
? NO. 


; YES -- CORRECT FOR THAT 
; AS ADVERTISED. 


; CHECK MSB OF USABLE PORTION. 
7 POSITIVE. 


? RETURN WITH CC SET. 


'GACC' 14 BYTE] 

J CLEAR BORROW. 


60 


RTS 


AF4F 
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• 

at 

• 

X 

i 

i 

STEWART 



OX * PILOT. 

A F 5 0 


• 

PKOC 





9 

i RADDI 

-- DOUBLE PRECISION 

ADD WITH ROUND FROM FRACTION 

A F 5 0 

898200 

t 

PADDI 

L D A 

CTAB+2, Y 

; GET FRACTION. 

AF53 

2A 


ROL 

A 

; MSB OF FRACTION TO CARRY. 

AF54 

4C339C 


JMP 

DADDIX 


A FS 7 



PROC 




; RSUBI -- DOUBLE PRECISION SUBTRACT WITH BORROW FROM FRACTION. 


AF57 

898200 

RSUBI 

LD A 

0TAB+2, Y 

} GET FRACTION. 

A F5 A 

4980 


EOR 

AS8Q 

? INVERT MSB OF FRACTION 

AF5C 

2 A 


RUl 

A 

? INVERTED MSB TO CARRY. 

AF5D 

4C439C 


JMP 

DSUbIX 



PROC 




? GPINIT -- 

INITIALIZE GRAPHICS 

PARAMETERS (X, Y f THETA R 

A F6 0 

A 9 0 0 

GPINIT LD A 

#0 

• 

9 

PEN = ERASE AND DOWN. 

AF62 

8D1305 

ST A 

PEN 



AF65 

A 9 1 0 

LD A 

ASPLIT 

• 

9 

FORCE SPLIT SCREEN, 

A F6 7 

8D5205 

STA 

SPLTSC 



AF64 

A906 

LD A 

AEFREE 

• 

f 

FREE EDGE TURTLE. 

A F6C 

8D5E05 

STA 

EDGRUL 



AF6F 

A 9 0 7 

LD A 

ASCNMOD 

• 

f 

SET DEFAULT SCREEN MODE 

A F 7 1 

8D3705 

STA 

GSMCDE 



A F 74 

60 

RTS 




AF 75 


PROC 

• 






; DFCLRS -- 

SET DEFAULT COLORS 




; CALLING SEQUENCE! 

? 

GSMQDE s GRAPHICS MODE 


JS* 


CFCLRS 


A F 75 
A F 7 7 
AF7A 
AF7C 


A £ 0 0 
8E1305 
A 9 0 1 
20F7A4 


» 

; 

• 

i 

? 

9 


DFCLRS 


'PEN' = 0 

'NXTCLR' = 1 

'PNCLRS' = DEFAULT VALUES 

COLOR REGS = DEFAULT VALUES 


LDX 
ST X 
LOA 
JSR 


#0 

PEN 

acblack 

SETCLR 


; BACKGROUND ... 
BLACK. 


; 


• • 


t 
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1 

AF7F 

A201 

LOX 

n i 


AFM 

8 EP 4 0 5 

STX 

NXTCLR 


A F 8 4 

A 94 2 

LOA 

8CPED 

1 

AF8o 

2 0 F 7 A 4 

JSR 

SETCLR 


AF39 

A202 

LOX 

#2 

1 

A F 86 

A91 A 

LOA 

8CYELL0 


AF 3D 

20F7A4 

JSR 

SETCLR 

< 

AF90 

A203 

LOX 

83 


A F 9 2 

A98 4 

LDA 

8CBLUE 


A F 9 4 

20F7A4 

JSR 

SETCLR 


AF97 

60 

RTS 



I 

% 

% 

% 

% 




1 • 0 A 
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t PEN n\ ... 

/ « . . PRO* 

; PEN #2 ... 

J ... YELLOW. 

; PEN #3 ... 

; ... SLUE. 
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01 l P I LOT 


A F 90 


PROC 

* 

* ENTRY POINT FOR FILL ROUTINE* 

* 

* THE FOLLOWING PARAMETERS MUST BE SET ON ENTRY* 


* GSMODEsGRAPHIC M CDE INDEX 

* FCOLORsF ILL COLOR 

* R0WCRS,C0LCRS=STARTING COORDINATES 

* MAXROW,MAXCOL«MODE DEPENDENT VALUES 

* FSTACK a FILL STACK BASE ADDRESS 


A F°6 

* 

FLOUD 

;routine 

ENTRY POINT 

Ap98 A 6 8 0 


LD A 

S 1 H 

? INITIALIZE FLOODSTACK POINTER. 

AP9A 8 bFU 


STA 

FSTACK 


AF9C A 5B 1 


LD A 

SiHt 1 


A F9£ 85F5 


STA 

FSTACK+1 



★ 

SAVE STARTING COORDINATES 


A F A 0 A 5 54 


LD A 

ROWCRS 


A FA2 ADA 0 05 


STA 

SAVROW 


AF AS A555 


LD A 

CCLCRS 


A F A 7 80 A 1 05 


STA 

SAVCOL 


A F A A A 556 


LD A 

COLCRS+1 


A F A C 8DA205 


STA 

SAVCOLTl 


A FAF AE3705 


LDX 

GSVCDE 

; MASK FCOLOR DOWN TO RANGE. 

AF82 AD9B05 


LD A 

FCOLOR 


A F85 30F687 


AND 

DaTM3K,X 


A F88 8096 0 5 

. » . 

STA 

FCOLOR 



* 

READ DATA 

AT STARTING COORDINATES 


★ 

SAVE AS " 

FIELD COLOR" 


A. FSB 2 0 9 F A A 

★ 

JSF 

CNVRT 

? GET ADDRESS 

AF8E A.DB105 


LOA 

DMASK 


AFC 1 31F6 


AND 

( ADRESS ) t Y 


A FC5 9£P 0 05 

SFIL02 LSR 

SHF AMT 


A FC6 B003 A A F C 6 


BCS 

: F IL 03 


AFC 8 4 A 


LSR 

A 


AFC9 90 F8 A AFC3 


BCC 

: FIl 02 


A FCB 6D9C05 

: F IL03 STA 

FLDCLR 

; FIELD COLOR 

AFCF. CD9605 


CMP 

FCOLOR 

? SAME AS FILL COLOR? 

AFD1 0003 A A F D6 


BNE 

SFIL3D 

? NO. 

AF03 4C26B2 


JMP 

:FIL90 

; YES -- ALL DONE, 


AFD6 

2056B2 

★ 

: F IL3D 
* 

JSR 

FPLCT 

• PLOT 

INITIAL POINT 

A F 09 

20B6B2 

★ 

JSR 

TSTROw 

(TEST 

ROW 
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AF09 20B6P2 


JSR 


TSTROia 


?TfcST RON 
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pilot 
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D1 SPILQT. 

A F DC 

2C9E.05 

BIT 

ROWFLG 


AFDF 

100b 

A AFE7 

ir 

BPL 

; F IL04 

? NOT ROW 0 



* 

IF STARTING 

RGW = 0 THEN 

BEGIN 



* 

O. 

ALGORITHM IN 

THE DOWN 

DIRECTION 

AFE1 

A901 


LD A 

FDOWN 


AFE3 

8597 


STA 

ROWINC 


AFE5 

D004 

A AFEB 

BNE 

r F I L OS 
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01 jPILOT. 


APE 7 A9FF 
A FF9 A 59 7 


* 

* 

* 

★ 

:F IL04 


STARTING R0*N > 0, HEGIN ALGORIThR 
IN THE UP DIRECTION 


LD A 
ST A 


FUP 

rohinc 


* 

it 

it 


PLOT TO STARTING LEFT COLUMN 


A FE6 2093B2 

:FIL05 

JSR 

TSTCOL 

AFEE 2CRF05 


HIT 

COLFLG 

A F F l 3010 A B0 03 


BN I 

!FIL07 

APFi 204A82 


JSR 

deccol 

AFF6 207C82 


JSR 

TSTPIX 

AFF9 D005 A B0 0 0 


BNE 

5 F I L 06 

AFFB 205682 


JSR 

FPLCT 

AFFE eOEb A AFEB 


BCS 

: F I L 05 

8000 204382 

F 

SFIL06 

JSP 

INCCOL 

8003 A555 

! F ILO 7 

LD A 

COLORS 

8005 8DA305 


STA 

LFTCOL 

8006 A556 


LD A 

COLCRS+1 

800A 6 DA 4 OS 

* 

STA 

LFTCQL+1 


★ RESET 

a. 

START 

COLUMN 

BOOD AD A 1 05 


LDA 

SAVCOL 

8010 8555 


STA 

COLORS 

BO 1 2 A D A 2 0 5 


LDA 

SAVCOL+1 

B 0 1 5 8556 

if 

STA 

COLCRS+1 


* FPLOT 

* 

TO STARTING RIGHT 

BO 1 7 209362 

5 F I LOB 

JSR 

TSTCOL 

80 1 A 2C9F05 


BIT 

COLFLG 

B01D 7010 A 802F 

a. 

B VS 

IFIL10 

BO 1 F 209382 

A 

JSR 

INCCOL 

8022 2O7C02 


JSR 

TSTPIX 

B025 C 0 05 A 8 02C 


BNE 

JFIL09 

8027 2056B2 


JSR 

FPLCT 

802 A BOEh A B 0 1 7 


BCS 

:FIL08 

B02C 2C4A82 

;FIL09 

JSR 

DECCOL 

802F A555 

SFIL10 

LDA 

COLORS 

B031 8DA705 


STA 

RGTCOL 

BO 34 A 556 


LDA 

COLCRS+1 

8036 8DA805 


STA 

RGTCOL+1 


;COLCkS=0 


JSCREEN EDGE 


; FILL PIXEL 
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★ 




* TEST 

ROW - 

m 

IF TCP OR BOTTOM 

THEN 



★ 



NOTHING REQUIRED 

ON STACK 

8039 

2 0 B 8 8 2 


JSR 


TSTROW 


P0 3C 

AD9E05 


LDA 


RQWFLG 


803F 

OOOF A B 050 


BNE 


sFILll 

;TOP OR BOTTOM 



A 

★ PUSH 

ONTO 

FILL STACK -- 




★ 

RQWCRS 





★ 

DIRECTION 




* 

LFTCOL 





* 

RGTCOL 



8041 

20D3B2 

A 

JSR 


REVROW 

? REVERSE ROw/DIRECTION 

8044 

20E182 

A 

JSP 


STKROW 


BQ47 

20F5B2 


JSR 


STKLC 


R 0 4 A 

200183 

X 

JSR 


8TKRC 


804D 

20C3B2 

A 

★ 

JSR 


REVRO'A 

? RESTORE 



★ 

* STAPT THE 

FILL ALGORITHM 


805 0 

18 

A 

SFIL11 

CLC 



; GO TO NEXT ROW 

8051 

A 55 4 


LDA 


ROWCRS 


8053 

65° 7 


ADC 


ROWING 


0055 

8554 


STA 


RQWCRS 


B057 

? 0 22 AC 

pf 

SFIL12 

JSR 


GABRTC 

; OPERATOR ABORT? 

805 A 

0003 A B05F 


BNE 


SFIL13 

; NO. 

B05C 

4 C 3602 


JMP 


: F IL95 

? YES. 

8 0 5 F 

AD^305 

: FIL13 

LDA 


LFTCOL 


8062 

8555 


STA 


COLORS 


8064 

ADA405 


LDA 


LFTCOL+ 1 


8067 

8556 


STA 


CQLCRS+1 


8069 

207CB2 

aT 

JSR 


TSTPIX 


e06C 

0062 A BOOO 


BNE 


:FIL20 

? BORDER PIXEL 

0O6E 

2056B2 

a 

JFIL14 

A. 

JSR 


FPLCT 

? F ILL PIXEL 

e o 7 1 

A555 

A 

LDA 


COLORS 

JSAVE NEW 

R073 

80A505 


STA 


NEWLC 

; LEFT 

8076 

A556 


LDA 


COLCRS+1 

? COLUMN 

B07d 

8 0 A 6 0 5 


STA 


NEWLC+1 


0078 

209382 

A 

JSR 


TSTCOL 


B07E 

2C9F05 


BIT 


COLFLG 


0081 

3008 A B08B 


BMl 


SFIL15 

? left screen edge 

8083 

204A82 

A 

JSR 


DECCOL 


8086 

207CB2 


JSR 


TSTPIX 


BQ89 

F0E3 A 0O6E 


REQ 


JFIL14 

? F IELD PIXEL 
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D1 sPILOT. 



★ 

★ 

BOUNDARY 

ENCOUNTERED 




★ 

x. 

COMPARE 

NEwLC TO LFTCOL 


B 0 P B 

38 

• 

• 

FIL15 

SEC 



B08C 

A DA 3 0 5 



LD A 

LFTCOL 


BO 8 F 

EDA505 



SBC 

NEWLC 


*0 92 

8595 



STA 

DELTAC 


80R4 

ADA405 



LD A 

LFTCOL+1 


B097 

EDA605 

X. 


SBC 

NEWLC+1 


B 0 9 A 

D 0 0 6 A B0A2 

X 


BNE 

SFIL16 

JPOSSIBLE OPENING 

B09C 

A 595 



LD A 

DELTAC 


B 0 9£ 

C903 



CMP 

A3 


BO AO 

9070 A B 1 1 2 

★ 


0CC 

: F I L 3 0 




★ 

★ 

X 

POSSIBLE 

OPENING -- TEST 

FOR CLOSURE 

9QA2 

20D3B2 

5 F I L 1 6 

JSR 

REVROW 


B0A5 

2043B2 

S FIL17 

JSR 

INCCOL 


00*8 

A5S6 



LD A 

COLCPS+1 


BO A A 

C D A 4 0 5 



CMP 

LFTCOL+1 


BOAD 

DOOD A 0O8C 



BNE 

SFIL16 


BOAF 

A 555 



LD A 

COLORS 


8061 

CDA305 



CMP 

LFTCOL 


8 0 84 

D 0 0 6 A B 0 BC 

X. 


BNE 

JFIL18 




X 

* 

CLOSURE 

-- LEFT EDGE FOUND 



★ 

NO AREA 

TO BE PLACED CM 

STACK 



it 

•Am 

CONTINUE 

WITH SEARCH FOR 

RIGHT EDGE 

B096 

20P3B2 

^Pi 


JSR 

REVROH 


3039 

4 C 1 28 1 

x 


JMP 

: FIL30 


BOBC 

207C82 

5 F I L 1 8 

JSR 

TSTFIX 


80 B F 

D0E4 A B0 AS 



BNE 

: FIL 17 

? BORDER PIXEL 



X 

★ 

FIELD 

COLOR FOUND -« 




* 

. i. 

SAVE 

AREA DEFINITION ON 

STACK 

BOC 1 

2 0 F 18 2 

X 


JSR 

STKROIa 


R0C4 

20EbB2 



JSR 

ST KCC 

? CURRENT COLCRS 

80C7 

20F5B2 



JSR 

STKlC 

; LEFT COLUMN 

BOCA 

20D3B2 

X 


JSR 

REVROK 


30 CD 

4C12B1 



JMP 

; FIL30 



* 

« 

4 

I 
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Dt :PILOT. 


★ 

★ 

★ 

★ 

* 

★ 

* 

* 


BOUNDARY PIXEL ABOVE/BELOW LEFT COLUMN 
SEARCH RIGHT TO FIND NEW LFTCOL 
IF RGTCOL REACHED W/Q FIELD PIxElf 
THEN AREA IS CLOSED, JUMP TO POP 
STACK 



BODO 

A D A 4 0 9 

: F I L20 LD A 

LFTCOL+l 


8003 

CDA805 


CMP 

RGTCOL+1 

( 

BODb 

D006 A 8QE3 


BNE 

JFIL21 


PODS 

ADA305 


LD A 

LFTCOL 


BODB 

CDA705 


CMP 

RGTCOL 


BODE 

D003 A B 0 E 3 


BNE 

SFIL21 




★ 

X- 

IF LFTCOL=RGTCOL THEN CLOSURE 


80EQ 

4CF3B1 


JMP 

;fil70 

1 

B0E3 

2043B2 

SFIL21 JSR 

INCCOL 


80E6 

207CB2 


JSR 

TSTFIX 

i 

B0E9 

FOU A 80FC 


BEQ 

SFIL22 




* 

x 

COMPARE TO 

RGTCOL 

« 

BOEB 

A 55 b 


LD A 

COLCRSfl 


BO ED 

CDA805 


CMP 

RGTCOL+ 1 

1 

BO FO 

D0F1 A 9 OE 3 


BNE 

8FIL21 


BO F 2 

A555 


LD A 

COLORS 


80F4 

CUA705 


CMP 

RGTCOL 

1 

BO F 7 

DOEA A 80E3 

x 

BNE 

s FIL21 


B0F9 

4CF6B1 


JMP 

I F I L 7 0 ; CLOSURE 

• 



* 

★ 






★ 

FIELD PIXEL 

FOUND -- 

% 



★ 

FILL PIXEL 





★ 

SET NEwLC 


t 



★ 

X 

PROCEED TO 

SEARCH RIGHT FOR RGTCOL 


BO FC 

205682 

• 

• 

FIL22 JSR 

FPLCT 

% 

boff 

A555 


LD A 

COLORS 


B 1 0 1 

80A505 


STA 

NEWLC 


8104 

8DA905 


STA 

NEWRC 

• 

B 1 0 7 

A 55 6 


LD A 

COLCRS+1 


9109 

8DA605 


STA 

NEWLC+1 


610C 

6DA 405 


STA 

NEWPC+1 

% 

B10F 

4C3781 


JMP 

: FIL34 
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* 

* SEARCH RIGHT 

* NEW RGTCOL 

* 


Bl 1 d 

ADA305 

SFIL30 

LD A 

8115 

8555 


ST A 

81 1 7 

8 D A 9 0 5 


STA 

Bl 1 A 

A D A 4 0 5 


LD A 

PUD 

8556 


STA 

81 1 F 

8DAA05 


STA 

B122 

2043B2 

: F IL32 

JSR 

Bl?5 

207C82 


JSR 

B128 

D 0 1 5 A B 1 3F 


8NE 

B 1 2 A 

2056B2 

▲ 

* 

JSR 

B 1 2D 

A555 


LD A 

B 1 2p 

6DA905 


STA 

B 1 32 

A556 


LD A 

B134 

6 D A A 0 5 


STA 

B 1 37 

2093B2 

SFIL34 

JSR 

B 1 3 A 

2C9F05 


BIT 

8130 

5 0E3 A B 1 22 


PVC 


★ 

★ 

* NEWRC FOUND 

* 


FROM LFTCOL TO FIND 


LFTCOL 

COLORS 

NEWRC 

LFTCOL+1 

CULCRS-U 


NEWRC+1 


INCCOL 


TSTPIX 
: F I L 35 

? BORDER PIXEL 

FPLOT 

? F I LL PIXEL 

COLORS 

NEWRC 



CGLCRS+1 

NEWRC+1 

TSTCOL 

COLFLG 

:FIL32 ?NQT RIGHT SCREEN EDGE 


- COMPARE TO RGTCOL 


B13F 

A D A A 0 5 

• F IL35 

LD A 

NEWRC+1 

8142 

CDA805 


CMP 

RGTCOL + 1 

B 1 45 

9 0 0 C A 8 1 53 


BCC 

: FIL40 

8147 

F 0 02 A B 1 46 


BEG 

! F I L36 

8149 

B046 A B 1 9 1 


PCS 

! F I L 5 0 

B 1 4 6 

ADA905 

:FIU36 

LD A 

NEWRC 

B14E 

CDA705 


CMP 

RGTCOL 

B 1 5 1 

B03E *B 1 9 1 


BCS 

SFIL50 


* 


★ NEWRC < RGTCOL 

★ IF DELTAC > 3 THEN POSSIBLE OPENING 

★ IN SAME DIRECTION 


B 1 53 

36 

SFIL40 SEC 


B 1 54 

AD A 7 05 

LD A 

RGTCOL 

Bl 57 

EDA905 

sec 

nemrc 

P 1 5 A 

8595 

STA 

DELTAC 

RISC 

A D A. 6 0 5 

LD A 

RGTCOL+1 

B15F 

EDAA05 

SbC 

NEMRC+1 

ei 62 

D 0 0 9 A 6 1 6D 

BNE 

: F IL4 1 

8164 

A595 

LCA 

DELTAC 

8166 

C503 

CMP 

#3 

B 1 68 

8003 A B 1 6D 

BCS 

SFIL41 

P 1 6 A 

4CD5B1 

JMP 

IFIL60 
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★ 


B16D 

2043B2 

* CHECK FDR 

★ 

? F IL4 1 JSR 

CLOSURE 

INCCOL 

B 1 7 0 

A556 

LD A 

COLCFS+ 1 

B 1 72 

CDA605 

CMP 

RGTCOL+1 

B 1 75 

0009 A 8 1 80 

BNE 

JFIL43 

P 1 77 

A555 

LD A 

COLORS 

B 1 79 

CDA705 

CMP 

RGTCOL 

B17C 

F 0 0 2 A B 1 80 

BEG 

: F IL43 

B17E 

BCOE A B 1 8E 

BCS 

! F I L 49 ? CLOSURE 

B180 

207CB2 

A 

:FIL«3 JSR 

TSTPI* 

B 1 83 

DOES A B 1 6D 

BNE 

Or 

! F I L 4 1 

B 1 85 

20E1B2 

★ OPENING FOUND — PISH AREA 

★ DEFINITION ON THE STACK 

★ 

JSR STKROi/v 

B 1 88 

20EB82 

JSR 

STKCC ? CURRENT COLORS 

BIBB 

200163 

JSR 

* 

STKRC t RIGHT COLUMN 

B 1 BE 

4CD561 

IK 

! F I L 49 JMP 
* 

; F I L60 

B 1 9 1 

F 0 4 2 A B 1 05 

★ 

★ NElrtRC > = 

★ IF DELTAC 

★ 

★ 

! F IL50 BEG 

RGTCOL 

> 3 THEN POSSIBLE OPENING 

IN THE OPPOSITE DIRECTION 

SFIL60 

B 1 93 

38 

SEC 


B 1 94 

A D A 9 0 5 

LD A 

N E K 1 R C 

B 1 9 7 

EDA705 

SBC 

RGTCOL 

B 1 9 A 

8595 

STA 

DELTAC 

ei°c 

ADAA05 

LDA 

NENRC+ 1 

B 1 9F 

EDA805 

SBC 

RGTCOL+1 

B1A2 

0006 a B1AA 

BNE 

SFIL51 

Pi A4 

A595 

LDA 

DELTAC 

Bi A6 

C903 

CMP 

83 

BIAS 

902B A 6 1 D5 

BCC 

JFIL60 
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★ 

★ POSSIBLE OPENING - CHECK FOP CLOSURE 


* 


81 AA 

20D3P2 

: F IL5 1 

JaR 

REVROk 

81 AD 

20AAB2 

;FIL52 

4 

JSR 

DECCOL 

8180 

A556 

n 

LD A 

CULCPS+ 1 

B1B2 

CDA805 


CMP 

RGTCOL+1 

818 5 

DOOD A B 1 C A 


BNE 

SFIL53 

B 1 87 

A 55 5 


LD A 

COLORS 

B 1 8 9 

CDA705 


CMP 

RGTCOL. 

B1BC 

D 0 0 6 A 9 1 C A 


BNE 

: F I L53 



* CLOSURE 

■A. 


B 1 BE 

2 00382 


JSR 

REVROfc 

8 1 C 1 

4CD5B1 

4 

JMF 

SFIL60 

bica 

207C82 

SFIL53 

JSR 

TSTP I X 

B1C7 

DOEA A B1AD 

4 

BNE 

SFIL52 



* FIELD 

i COLOR 

FOUND -- PUSH AREA 



★ DEFINITION 

ON THE STACK 

E1C9 

20E1B2 

7 * 

JSR 

STKROIA 

B1CC 

2001B3 


JSR 

STKRC ;RIGHT COLUMN 

8 1 C F 

20E6B2 

& 

JSR 

STKCC , ‘CURRENT COLORS 

8102 

20D3B2 

A 

JSR 

REVROW 


★ 

* 


* CURRENT R 0 iAi FILLED -- 

★ TEST FOR SCREEN EDGES r IF NOT 

* THEN RESET LFTCOL AND RGTCOL 

★ AND JUMP TO START OF ALGORITHM 


B1D5 

206882 

* 

: F IL6 0 

JSR 

TSTROfc 


8108 

AD9E05 


LD A 

RQWFLG 

; SCREEN TOP OR 80TTOM 

8 1 OB 

D01B A B 1 F 8 

4 

BimE 

: F I L 70 

R1DD 

AD A 5 05 


LD A 

NE’^LC 


B1E0 

8DA305 


STA 

LFTCOL 


B1E3 

ADA605 


LD A 

NEWLC+1 


BlEb 

6 D A A 0 5 

4 

STA 

LFTCOL+1 


81E9 

ADA905 


LD A 

NEWRC 


81EC 

BDA705 


STA 

RGTCOL 


B1EF 

AD A A 05 


LD A 

NEHPC+ 1 


B1F2 

8DA605 

4 

STA 

RGTCOL+1 


H1F5 

AC50B0 


JMP 

SFIL11 



fr 

4 

4 

i 

i 
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★ 

★ 

* 

* 

* 

* 

* 

* 

★ 


CLOSURE DETERMINED — 

POP FILL STACK FOR other AREAS TO 
BE FILLED 

SETUP NEW ROW, DIRECTION, LFTCOL , RGTCGL 
JUMP TO START OF ALGORITHM 



B 1 F 8 

A274 

! F I L7 0 

LDX 

4FST ACK-DTAB 

( 

Bl Fa 

A 0 3 0 


LDY 

#S 1 H-DT AB 


R1FC 

20159C 


JSR 

DCMPI 


biff 

F 025 A 0226 


BEQ 

SFIL90 


B201 

201 2B3 


JSR 

POPFS 


B204 

8DA805 


ST A 

RGTCOL+ 1 


B207 

2012B3 


JSR 

PUPFS 


82 0 a 

8DA705 


STA 

RGTCOL 


820D 

201203 


JSR 

PUPFS 


P210 

3DA405 


STA 

LFTCOL+1 


B213 

201283 


JSR 

POPFS 


B216 

8DA305 


STA 

LFTCOL 

—t 

0219 

2U12B3 


JSR 

POPFS 


82 1 C 

8597 


STA 

ROWING 


82 1 E 

2012B3 


JSR 

POPFS 

i 

B221 

3554 


STA 

RUWCRS 

• 

8223 

4C57B0 

* 

JMP 

: FIL12 




★ 

★ FILL 

FUNCTION 

j COMPLETE 

1 



★ 






* RESTORE STARTING CURSOR Ci 




★ AND 

RETURN 


• 



★ 




8226 

ADA005 

: F I L90 

LD A 

SAVRQW 


B229 

8554 


STA 

ROWCRS 

• 

822b 

AD A 1 05 


LD A 

SAVCOL 


B22E 

8555 


STA 

COLORS 


0230 

ADA205 


LD A 

SAVCOL+1 

t 

3233 

8556 


STA 

CQLCPS+ 1 


8235 

60 


PTS 


% 



* 






; fill 
• 

FUNCTION 

ABORT 

% 

B23o 

A03E 

SFIL95 

LDY 

#GX 1 "DT AB 


8238 

20FFAB 


JSR 

SETCUR 


B23B 

209FAA 


JSR 

CNVRT 

* 

023E 

A98 7 


LD A 

# ABTERR 


3240 

4C3A7A 


JMP 

PSTCP 


STACK EMPTY TEST, 


DONE, 


PILOT 


H.O. 
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«243 


PROC 


* SUBROUTINES TO SUPPORT THE FILL ROUTINE 


B243 


8243 

8245 

B247 

B249 


E655 
D 0 02 
Eo5b 
60 


A B249 


* 
it 
★ 

INCCOL 


PROC 


INCREMENT COLORS 


ICX 


INC 

8NE 

INC 

RTS 


COLCRS 
: ICX 

CQLCRS+1 


★ 

* 

★ 


DECREMENT COLCRS 


8244 36 

DECCOL 

SEC 



8 246 A555 


LD A 

COLCRS 


P24D E90 1 


SbC 

*n 


B24F 8555 


STA 

COLCRS 


8251 B 0 02 A 8255 


BCS 

;dcx 


8253 Cb56 


DEC 

CGLCRS+1 


8255 60 

: DCX 

* 

RTS 




* PLOT 

data 

POINT AT RQi/vCRS, COLCRS 


* ADRESS ALREADY SET BY CONVRT 

* 


8256 A DFF02 

FPL QT 

LD A 

SSFLAG 

; HONOR START/STOP 

9259 DOFB A B256 


bne 

FPLOT 


B258 AD8105 


LD A 

DMASK 


625 E 8DB0.05 


STA 

SHFAMT 


8261 AD9605 


LD A 

FCOLOR 

; FILL COLOR 

8264 4E6005 

JFPLTl 

LSR 

SHFAMT 


8267 B003 A 826C 


BCS 

l FPLT2 


B269 OA 


ASL 

A 


926 A 90F8 A B264 


BCD 

JFPLTl 

^UNCONDITIONAL 

926C 8D9D05 

! FPLT2 

STA 

MSKTMp 

fMASKED DATA 

B26F AD8105 


LDA 

DMASK 


8272 49 FF 


EOR 

PS FF 


9274 31F6 


AND 

(ADRESS ) , Y 


8276 0D9D05 


ORA 

MSKTMP 


8279 9 1 Ft 


STA 

( ADRESS ) , Y 


8276 60 


RTS 


•CARRY SET 


(CTRL- 1 ) 


P27C 


PROC 


★ 

* 

★ 

★ 

* 

★ 


TSTPIX — 

CCNVtRT ROW, COL TO 
UNMASK DATA blT(S) 
COMPARE WITH FIELD 


ADDRESS 


COLOR 


RETURN TO T R ST CONDITIONS 


PILOT 


H . 8 . 



ATARI C A M A C Assembler Ver 1.0A 
STEWART 


B27C 

2Q9RAA 

TSTPIX 

JSR 

CNVRT 

B27F 

AUB105 


LD A 

DMASK 

P282 

80P005 


STA 

SHF AMT 

R2A5 

3 1 Fb 


AND 

(ADRF.SS) , Y 

B287 

4EB005 

JTSTP1 

LSR 

SHF AMT 

P28 A 

B003 A B28F 


PCS 

:TSTP2 

R28C 

4 A 


LSP 

A 

B28D 

90F8 A B287 


BCC 

: TSTP 1 

B28F 

CD9C05 

: TSTP2 

CMP 

FLDCLR 

B292 

60 


RTS 
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? DATA PIXEL 
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• • 1 tWAK T 01 SPILOT 


6293 


PROC 

A 

* TSTCUL -- TEST CURSOR COLUMN 

* SET COLFLGrSeO FOR COLUMN=0 

* SET COLFLG=S40 FCR COLUMN=MAX 

* 



49 0 0 

TSTCOL 

LOA 

#0 

8295 

8D9F05 

if 

STA 

CCLFLG 

B 296 

4566 


LOA 

COLCPS+1 

R29A 

0555 


ORA 

COLORS 

Bd9C 

D 0 06 A 82 A 4 

* 

BNE 

STSTC1 



* COLUMNsO 


B29E 

A96 0 


LOA 

PS 80 

B2A0 

SD9F05 


STA 

COLFLG 

8243 

60 


RTS 


B244 

A556 

rf 

5TSTC1 

LD A 

CQLCPStl 

B2 A 6 

CDAD05 


CMP 

RAXCOL+1 

B2 49 

DOOC A 8287 


BNE 

JTSTC9 

8246 

A555 


LD A 

COLORS 

8240 

CDAC05 


CMP 

RAXCOL 

8260 

P005 A 3287 

* 

BNE 

: TSTC9 



* COLUMNsMAXCQL (RIGHT SCREEN 

B2B2 

A 94 0 


LD A 

A $4 0 

8264 

8D9F05 


STA 

CQLFLG 

6287 

60 

• TSTC9 

RTS 




r 


1 

PILUT -- H.B. 

ATARI 

STEWART 

C A M A C Assembler V e r l.OA 

Page 366 

D 1 : P I LOT 

( 

B286 

ic 

PROC 





★ 

T S T R 0 Ia 1 -- TEST 

CURSOR ROW 


< 


★ 

SET ROWFLG=S80 

FOR RQW = 0 




★ 

SET ROaFLG=S«0 

FOR ROwsMAX 



* 



82B8 

A900 

TSTROW LDA 

AO 


B2RA 

8D9E05 


STA 

ROWFLG 


B23D 

18 


CLC 



B2BE 

A 554 


LDA 

ROWCRS 


B2C0 

D 0 0 6 A B2C8 

4 . 

BNE 

: T ST R 1 




* 

RQW = 0 


t 

P2C2 

A980 


LDA 

#$80 


P2C4 

B09E05 


STA 

ROWFLG 


B2C7 

60 

«A. 

RTS 


♦ 

B 2 C 6 

CDA605 

:TSTR 1 CMP 

MAXROw 


B2C6 

9005 A 92D2 


BCC 

TSTRWX 

-* 



★ 






★ 

ROW=MAXPOW 

(BOTTOM SCREEN EDGE) 

% 

B2CD 

A 9 A 0 


LDA 

A$40 


B2CF 

8D9E05 


STA 

ROWFLG 

% 



★ 




B2D2 

60 

TSTRWX RTS 


% 

6203 


★ 

PROC 


% 



★ 

★ 

R E V R 0 »a -- 

REVERSE ROW INCREMENT 




★ 


VALUE (CHANGE SIGN) 




★ 


AND ADD TO ROWCRS 

% 



* 




B203 

16 

RfcVROW CLC 



e 20 A 

A 59 7 


LDA 

PQWINC 

% 

B206 

49FF 


EOR 

# $ F F 


B2D8 

6901 


ADC 

#1 


B2DA 

8597 


STA 

ROWINC 

% 

B2DC 

6554 


ADC 

ROWCRS 


B2DE 

8554 


STA 

ROWCRS 


B2E0 

60 


RTS 
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P2E1 PROC 

* 



★ STACK SU8R0UTINES 




★ STKROK - PUSH ROwCRS , ROWINC ONTO FILL STACK 

92E1 A554 

STKROa 

LD A 

R 0 W C R S 



82E3 2 0 1 F 93 


JSR 

PUSHFS 



B2E6 A 59 7 


LD A 

ROWING 



B2E8 4C 1 F83 

•fc 

JMP 

FUSHFS 




* STKCC - PUSH 

* 

CURHENT COLUMN CURSOR ONTO 

STACK 

B2Eb A 555 

STKCC 

LD A 

COLORS 



B2ED 201F93 


JSR 

PUSHFS 



B2F0 A 556 


LD A 

CGLCRS+ 1 



B2F2 4C1F93 

a. 

JMP 

PUSHFS 




★ STKLC - PUSH 

•A. 

LEFT COLUMN ONTO STACK 


82 F 5 AD A 305 

STKLC 

LD A 

LFTCOL 



B2F6 201FS3 


JSR 

PUSHFS 



82 FB ADA405 


LD A 

LFTCOL+ 1 



82F£ 4C 1 FB3 

a. 

JMP 

PUSHFS 




★ STKRC - PUSH 

RIGHT COLUMN 

ONTO STACK 


P301 AD A 7 05 

STKRC 

LD A 

RGTCOL 



6304 ? 0 1 FB3 


JSR 

PUSHFS 



P307 A D A 8 0 5 


LD A 

RGTCOL+1 



B30A 4C1FB3 


JMP 

PUSHFS 



B30D A 9 A 4 

STKQVF 

LD A 

AFSCFER 



630F 4 C 3 A 7 A 


JMP 

PSTQP 




POPFS 

-- POP ONE BYTE FROM 

STACK 


8312 A5F4 

5QPFS 

LDA 

FSTACK 

; FSTACK ; 

= FSTACK 

6314 D002 *0318 


BNE 

; POP 1 0 



8316 C6F5 


DEC 

FSTACK+l 



8316 C 6 F 4 : FOP 1 0 

DEC 

FSTACK 



83 1 £ £000 


LDY 

AC 



83 1 C 8184 


LDA 

( FSTACK ) f Y 



83 1 £ fc & 


RTS 





PUSHFS 

-- PUSH 

ONE BYTE TO 

STACK. 


8318 44F5 P 

USHFS 

LDY 

FSTACK+1 



P3?l C4B3 


CPY 

S2L + 1 



E323 b 0 E 6 A B30D 


BCS 

STKGVF 




AO 


B325 A 0 0 0 


LDY 


PHOT 

A T & K T 

-- H.B, STEWART 

CAMAC Assembler Ver l.OA 

Pape 268 

01 :PILOT. 

B327 

Q 1 F<4 

STA 

(F STACK) f Y 


B329 

832B 

E6F4 

0002 *832F 

INC 

BNE 

FSTACK 

;PSF90 

; FSTACK := FSTACK+1 

B320 

EfeF5 

INC 

FSTACK+1 



B32F 


60 


SPSH90 RTS 


pilot 
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D1 SPILOT, 


★ 

* tables 

* 

★ DIV2TR = NUMBER CF SHIFTS FOR COLUMN CURSOR 

* (INDICATES PIXELS PER BYTE) 

★ DMASKT = TABLE OF PIXEL MASKS 

* 

★ 




* 

★ 

DINDEX 

ANTIC 

MODE 

bytsml 

DIV2TP 



* 


0 

2 


40 

0 



* 


1 

6 


20 

0 



* 


2 

7 


20 

0 



★ 


3 

8 


1 0 

2 



★ 


4 

9 


10 

3 



* 


5 

A 


20 

2 



★ 


6 

8 


20 

3 



★ 


7 

D 


40 

2 



★ 


8 

F 


40 

3 



* 


9 

GT I A 

1 

40 

1 



★ 


A 

GT I A 

2 

40 

1 



★ 


B 

GT I A 

3 

40 

1 



★ 


C 

4 


40 

0 



* 


D 

5 


40 

0 



* 


E 

C 


20 

3 



* 

it 


F 

E 


40 

2 

P330 

0000000203 

D1V2TB 

i. 

D9 


0 r 0 r 0 , 2 

f 2/3/2 

r3?lfl#l 

O 

0 

01 

B34Q 

OGFPFOOF 

DMASKT 

DB 


$00,$FF,$FO,$OF 



6344 

C0300C03 


08 


$C0,$3O,$OC,$O3 



6346 

60402010 


D8 


$80 > $40 r 320 f $1 0 



B34C 

06040201 


08 


$08, $04, $02, $01 




* 


PILOT 
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B350 PROC 

? 

; ROBOT TURTLE SUBCOMMANDS FOR PILOT GRAPHICS, 

9 

; RBIIMIT -- INITIALIZE 'ROBOT TURTLE ' 

I 



8350 

AD0305 

PBINIT 

LUA 

P0VECT+1 

• 

9 

ROBOT DRIVER INSTALLED? 


B353 

F 0 3 3 A B38S 


BEG 

8 R 1 0 Q 9 

• 

9 

NO. 


6355 

A92 0 


LOA 

ARBGN 

• 

9 

INITIALIZE, 


6357 

8DC705 


ST A 

RBTCMD 




B35 A 

4C25B4 


JMP 

REXEC 

• 

9 

EXIT THROUGH DRIVER. 




• 

9 

? RONOF 

• 

9 

F -- 'ROBOT CN/OFF' 

SUBCOMMAND. 

f 

B35D 

AD0305 

RUNOFF 

LOA 

RBVECT+1 

• 

9 

ROBOT DRIVER INSTALLED? 

— ♦ 

836 0 

F 02 1 A B383 


BEG) 

8 RN090 

• 

9 

NO, 


6362 

A20A 


LUX 

AONQFFX 

9 

9 

CHECK 'ON' OR 'OFF'. 

t 

8364 

20A67C 


JSR 

SBCMAT 




B367 

0 0 1 C A B385 


BNE 

SRN092 

• 

9 

NOT FOUND -- ERROR. 

t 

B369 

8 A 


TXA 


9 

9 

SET CC FOR 'ON'/'QFF'. 


R36A 

FQOF A B37B 


BEG 

8 RF020 

9 

9 

'OFF'. 

% 



? 'ROBOT ON', 





B36C 

3EC505 


ST X 

RBTON 

m 

9 

FLAG 'ROBOT ON'. 

% 

e36F 

A 92 0 


LDA 

# R B 0 N 

9 

9 

INTERNAL COMMAND. 


B37 1 

4C1664 


JMP 

RXDRIV 

• 

9 

RETURN THROUGH DRIVER. 

% 



? 'ROBOT OFF'. 







; external 

ENTRY FROM 

'GEXIT ' 

★ * * . 

% 

R374 

AD0305 

RBTOFF 

LDA 

R6VECT+1 

• 

f 

ROBOT DRIVER INSTALLED? 


B37 7 

FOOF A B388 


BEQ 

8 RN099 

• 

9 

GO -- NOP. 

% 

8379 

A200 


LDX 

AO 

9 

9 

FLAG 'ROBOT OFF'. 


B37B 

8EC505 

8RF020 

STX 

RBTON 



% 

P37E 

A900 


LDA 

ARBOFF 

9 

9 

INTERNAL COMMAND. 


8360 

4C1B84 


JMP 

RXDRIV 

9 

9 

RETURN THROUGH DRIVER. 

% 

838 3 


JRH090 






8383 


:RP090 






838 3 


: RE090 





% 

B363 

A902 

SRN090 

LDA 

AIVCERR 

• 

9 

NO 'ROBOT' OR 'OFF'. 


8365 


:RH092 






8365 


:RP092 





+ 

83«5 


:RE092 






83^3 

4C3A7A 

SRN092 

JMP 

PSTOP 




PILOT 


ATARI CAMAC Assembler Ver 
-- H.tt. STEaART 
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D 1 : P ILOT . 


B 388 I R I Q99 

6388 60 SRN099 RTS 




? REYES 

• 

9 

•» m 

ROBOT 'EYES' 

SUBCOMMAND 

• 

B389 

AOC505 

REYES 

LD A 

RBTCN 

! 

IS ROBOT ON? 

636C 

F0F5 A 8383 


B£G 

S RE 0 9 0 

} 

NO -- ERROR. 

B38E 

A20A 


LDX 

AQNOFFX 

9 

9 

CHECK FOR 'ON' OR 'OFF'. 

8390 

2 0 A 8 7 c 


JSR 

sscmat 


8393 

DO F 0 A B385 


BNE 

: RE 092 

9 

9 

NOT FOUND -- ERROR. 

8395 

A 9 0 1 


LD A 

AR8EYES 

9 

9 

INTERNAL COMMAND. 

B597 

1 BBa 


JMP 

RXDRIV 

9 

9 

RETURN THROUGH DRIVER. 




• 

9 

; RPEN 

• 

9 

-- ROBOT 

'RPEN' 

subcommand. 


B39A 

ADC505 

RPEN 

LD A 

RBTCN 

• 

9 

IS ROBOT ON? 

B39D 

F0E4 A B383 


BEG 

:RP090 

♦ 

9 

NO -- ERROR. 

839 F 

A208 


LDX 

AUPDWNX 

9 

9 

CHECK FOR 'UP' OR 'DOWN', 

S3 A 1 

20A67C 


JSR 

SBCMAT 



B3A4 

DODF A B385 


BNE 

: RP092 

9 

9 

NOT FOUND -- ERROR. 

83 Afc» 

8 A 


TXA 


9 

9 

CONVERT TO 0 (UPD/l (DOWN 

03 A 7 

A 2 0 0 


LDX 

AO 

9 

9 

ASSUME UP. 

83 A 9 

C94u 


CMP 

A p C D N 



B3 A 8 

D001 A 63AE 


BNE 

SRP010 

• 

/ 

UP. 

83 AL) 

E6 


I N X 


• 

/ 

DOWN, 

B3 A t 

A 9 02 

SRP010 

LD A 

ARBPEN 

• 

9 

INTERNAL COMMAND. 

9390 

4C1BB4 


JMP 

RXDRIV 

• 

9 

RETURN THROUGH DRIVER. 




• 

9 

9 

9 

• 

RHORN -- ROBOT 'HORN' SUBCOMMAND. 




9 

• 

/ 

'RHORN OFF' = 'RHORN O'. 





• 

9 

'RHORN CN' = 'RHORN 1'. 



9363 

ADC505 

RhORN LD A RBTCN 

; IS ROBOT ON? 

63 p 6 

FO Co *B383 


BEQ : RH090 

; NO -- 

ERROR. 

B386 

A20 A 


LDX AONCFFX 

? CHECK 

FOR 'ON' OR 'OFF'. 

0 3 9 A 

20AB7C 


JSR SBCMAT 



8380 

F 0 1 3 *8302 


BEQ s RH02 0 

; FOUND 

I T , 


I 

4 

4 

< 

i 


PILOT 

-- H.B. STEWART 




D1 {PILOT. 



? NOT 

'ON ' OR ' 

0 F F # - CHECK FOR 

0, 

1,2. 

838 F 

206E81 


JSR 

ATOM 

• 

F 

GET 'HORN' PARAMETER. 

B3C2 

DOC 1 A 0385 


bne 

:RH092 

• 

F 

ERROR -- RETURN. 

P3C4 

C902 


CMP 

#NUM 

• 

9 

CHECK FOR NUMBER. 

B3Co 

DOBB A B383 


BNE 

: R H 0 9 0 

• 

F 

NO -- ERROR. 

B3C6 

A6B9 


LDX 

NUM8ER+1 

m 

F 

0,1,2 VALID. 

B3C A 

DOB 7 A 8383 


bne 

:RH090 

• 

F 

INVALID. 

B3CC 

A6B8 


LDX 

NUMBER 



B3CE 

E 0 0 3 


CPX 

#3 



B300 

BOB 1 A B383 


BC 3 

: h H 0 9 0 

} 

INVALID. 

83D2 

A903 

! RH020 

LD A 

ARBHORN 

• 

F 

INTERNAL COMMAND. 

B3D4 

4C1BB4 


JMP 

RXDR IV 

• 

9 

RETURN THROUGH DRIVER. 



• 

? RGO 

• 

-- ROBOT 

'GO ' SUBCOMMAND, 





? CALLING SEQUENCE: 

• 





, 

• 

, 

ROBOT TURTLE ON 





• 

, 

EXPSTK+0,+1 s SIGNED MAGNI 

TUDE, 



• 

t 

m 

EXECUTE 

MODE 





, 

• 

f 

• 

, 

JSR 

RGO 



8 3D 7 

A21S 

RGO 

LDX 

AEXPSTK+2-DTAB 

% 

, 

EXPSTK+2, +3 = ABSOLUTE 

B3 n 9 

A 0 1 3 


LD Y 

*EXPSTK-DTAB 



B306 

20459A 


JSR 

D M 0 V I 



B30E 

A960 


LDA 

#R8FWD 

• 

, 

ASSUME FORWARD, 

B3EO 

2496 


BIT 

EXPSTK+3 

m 

, 

NOW CHECK SIGN. 

R3E2 

1005 A B3E9 


BPL 

RGOOIO 

• 

, 

FORWARD IT IS. 

B3E4 

20F19C 


JSR 

DNEGI 

; 

ABSOLUTE VALUE. 

B3E7 

A98 1 


LDA 

#RBB ACK 

; 

BACK. 



; *** 

external 

ENTRY FROM 'RTURN 


★ * * , 

B3E9 

8DC705 

RGOOIO 

STA 

RBTCMO 

• 

t 

internal command. 

P3EC 

A595 


LDA 

EXPSTK+2 

• 

9 

VALUE. 

P3EE 

8DC805 


STA 

RBTPRM 



B 3 F 1 

A 59 6 


LDA 

EXPSTK+3 



83F3 

8UC905 


STA 

RBTFRM+1 



8 3 F 6 

4C25B4 


JMP 

PEXEC 

• 

9 

RETURN THROUGH DRIVER. 



• 

? RTURN -- ROBOT 'TURN' SUBCOMMAND 

• 


t CALLING SEQUENCE: 

9 
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; 

; 


ROBOT TURTLE ON 

EXPSTK+Q,*! * SIGNED MAGNITUDE 




; 

? 

; 

> 

EXECUTE 

MODE 





JSR 

RTURN 



83 F 9 

A215 

RTURN 

LDX 

AEXPSTK+2-DT A8 

; 

EXPSTK+2,+3 = i 

B3F8 

A 0 1 3 


LDV 

AEXPSTK-DTAB 



B3F0 

20459A 


JSR 

DMO V I 



9400 

A 9 4 1 


LD A 

AR8NGHT 

; 

ASSUME RIGHT. 

9402 

2496 


BIT 

EXPSTK+3 

• 

/ 

NOW CHECK SIGN 

9404 

1 0E3 A B3E9 


PPL 

RG0010 

; 

RIGHT IT IS. 

E406 

20F19C 


JSR 

DNEGI 

; 

ABSOLUTE VALUE 

9409 

A940 


LOA 

PRBLEFT 

• 

9 

LEFT. 

9408 

DODC A 83E9 


BNE 

RG0010 




? RRDSNS -- ROBOT 'READ SENSORS', 

9 

; CALLING SEQUENCE: 




• 

9 

• 

B40D 

A 98 0 

9 

• 

9 

• 

9 

• 

9 

• 

9 

RRDSNS 

34 0 F 

A200 


B411 

8EC905 


R414 

201684 


84 17 

ADC605 


841 A 

60 



JSR RRDSNS 

RBT8NS s SENSOR VALUES, 
} = SNESOR VALUES. 


LOA 

ARBFWD 

• 

9 

LDX 

AO 


srx 

R8TPRN+1 

• 

9 

JSR 

RXDRT V 

} 

LD A 
RTS 

RBTSNS 

• 

9 


'GO 0' IS A 'NOP'. 

MSB = 0. 

UPDATE SENSOPS. 

AS ADVERTISED. 




PILOT 


« 
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i 

6418 PROC 

i 

? 


i 



• 

r 

• 

RXDRIV -- INTERFACE TO ROBOT 

DRIVER. 




9 

% 

9 

; 

• 

CALLING SEQUENCE; 



i 



A = INTERNAL COMPAND . 






? 

• 

X = LSP OF INTERNAL PARAMETER. 


i 



9 

l 

JSR RXDRIV 






• 

9 

RETURN WITH 'BEQ' ONLY 

IF OPERATION 

COMPLETED. 




; 

• 

JUMP TO 'PSTQP' IF 'BREAK ' OR LOGIC 

ERROR. 




9 

0 

9 

• 

Y IS PRESERVED. 






9 

m 

9 

0 

CHECKS 'EXEC' FLAG AND 

RETURNS 'OK' 

IF 'FALSE'. 


6418 

8DC705 

RXDRIV STA RBTCMD 

; INTERNAL 

COMMAND, 


R41E 

A592 


LD A EXEC 

; EXECUTE? 



6420 

F010 A B43F 


BEQ ; R X 0 9 9 

? NO. 



8422 

6EC605 


STX RBTPRN 

} LSB (INTERNAL PARAMETER 

# 



• 

9 

★ S* JMP REXEC 

? INTERFACE 

TO DRIVER. 


♦ 



• 

} REXEC 
• 

-» CALL ROBOT DRIVER 

• 

• 



t 

} CALLING SEQUENCE! 

• 


| 



t 

• 

! 

'R8TCMD' = INTERNAL 

COMMAND BYTE, 




• 

f 

• 

' RB TPRM ' = INTERNAL 

PARAMETER WORD. 

% 



r 

• 

r 

JSR 

REXEC 





? 

• 

Y IS 

PRESERVED. 


% 



f 

• 

f 

RETURN IF OPERATION 

completed. 




• 

t 

JUMP 

TO 'PSTOP' IF ' 

BREAK' OR LOGIC ERROR. 

% 

B42S 

8 4 A 1 

REXEC 

STY 

TEMP 

; SAVE Y. 


B42 7 

2040B4 


JSR 

:RX100 

? 'JSR' TO DRIVER. 


B42A 

204FB4 


JSR 

TONES 


% 



; Y = 1 

(OK) 

? = 128 (BREAK); 

= 132 (LOGIC ERROR). 




t A = ROBOT 

SENSOR STATE. 


% 








64 ? D 

8DC605 


STA 

RBTSNS 



B430 

COSO 


CPY 

A12B 


% 

B432 

9007 A 843B 


BCC 

! RX090 

? OK. 



= 0000 


IF DEBUG 


% 

• 



BEQ 

: RX020 

i BREAK. 


• 


JRX010 

LD* 

« I NT ERR 

? 'BUG'. 


ATARI CARAC Assembler Ver 
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BNE 
END I F 

JRX022 

B434 

A 9 8 7 

: R X 02 0 

LD A 

AABTERR 

R43& 

A 4 A 1 

: RX022 

LDY 

TEMP 

6438 

4C3A7A 


JMP 

P STOP 

B43b 

A 4 A 1 

: R X 0 9 0 

LDY 

TEMP 

B43D 

B43F 

A 9 0 0 

S RX 099 

LDA 

#0 

84 3 F 

60 


RTS 


8440 

= 0 000 

S R X 1 0 0 

IF DEBUG 


- 



LDA 

RBVECT+1 

- 



BEQ 

ENDIF 

: RXO 1 0 

8440 

ADC705 


LDA 

RBTCMD 

8443 

46 


PhA 


8444 

AOC805 


LDA 

RBTPRM 

B4 4 7 

48 


PHA 


8448 

ADC905 


LDA 

RBTPRM+ 1 

8448 

46 


PhA 


844C 

6C0205 


JMP 

(RBVECT) 


1 • 0 A Page 275 

01 sPILOT. 


? BREAK. 

? RESTORE Y. 


; RESTORE Y. 

; SET CC FOR EXIT. 


; ROBOT DRIVER INSTALLED? 
; NO -- BUG. 

; STACK-3. 

; STACK-2. 

} STACK-1. 


< 
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D1 :PILOT. 


( 


B44F 


PROC 


1 



; AUDIO 

J 

tone 

GENERATION PROCESSOR 



1 

944 F 

A208 

f 

TONES 

LDX 


AAUREGS*2 

• 

9 

SETUP TO SCAN REGISTER 

ASSIGN TABLE. 


B45 1 

Bui 305 

: TOO 1 0 

LUA 


AUDIOR-2,X 

9 

9 

POINTER TO VARIABLE. 



B454 

85B6 


STA 


POINT 





B4S6 

1 D 1 405 


ORA 


AUDIOR-l,X 

? 

NULL ENTRY IF RESULT IS 

ZERO. 


B459 

F003 A S45E 


BEQ 


: T0020 





B45B 

6D140S 


LD A 


AUDIOR-1 ,X 

• 

9 

FINISH MOVING NON-NULL 

POINTER. 



= 0000 


IF 


FALSE 





m 



STA 


PClNTtl 








BMI 


: T0020 

9 

9 

NUMERIC CONSTANT. 



- 



LDY 


no 

9 

f 

NOW GET VALUE. 



• 



LD A 


(POINT) # Y 




t 




ENDIF 






B45t 

291F 

: T002Q 

AND 


#S1F 

9 

9 

MODULO 32, 


4 

B460 

AS 


TAY 







B46 1 

P971B4 


LD A 


AUDI AB,Y 

9 

9 

GET FREQ FROM TABLE. 



8464 

9D C ED 1 


STA 


AUDF1-2,X 

9 

9 

PUT IN HARDWARE, 


f 

0467 

A 9 A 4 


LD A 


A 4 

9 

9 

QUARTER VOLUME. 



B469 

90FFD1 


STA 


AUDC1-2,X 





B46C 

CA 


CEX 






• 

846D 

CA 


DEX 







B46E 

DOE 1 A 845 1 


BNE 


J TOO 1 0 




• 

847 0 

60 

IT0090 

RTS 






• 

8471 

00 

audtab 

Db 

0 


; REST 



8472 

F3E6D9CCC1 


DB 

243 

,230,217,204 

,193,182 



8^76 

AC A2999088 


DB 

172 

,162,153,144 

,136,128 


• 

P47E 

7972606660 


DB 

121 

,114,108,102 

,96,91 




8484 

55514C4644 


DB 

85, 

81, 76,72,68, 

64 




B4 8 A 

3C3935322F 


DB 

6 0, 

57,53,50,47, 

45 



% 

8490 

2a 


Db 

42 
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D1 : PILOT. 


B4P 1 


PKOC 


; p I L V BL -- DEFERRED V BLANK ROUTINE WHICH READS THE 


B A P 1 

2U9AB4 

PILVBL 

JSR 

CONKRD 

• 

§ 

BARA 

2 0 7 A A 5 


JSR 

TkTLOC 

} 

BA 9 7 

4C62E4 


JMP 

XIT VPV 

f 

B49A 

AD6505 

conkrd 

LDA 

CSTATE 

9 

m 

B4 °D 

D01C A B4BB 


BNE 

: CK 0 1 0 

f 

9 

9 

B49F 

AD1FOO 


LDA 

CONSOL 

9 

BA A 2 

2907 


AND 

# ANYKEY 


BA A A 

C 90 7 


CMP 

# ANYKEY 


B4A6 

F03E A B4E6 


BEQ 

: C K 0 9 0 

9 

9 

84 A8 

4907 


EOR 

AANYKE Y 

9 

§ 

baaa 

8DA 405 


STA 

CONKEY 

¥ 

9 

m 

BA AD 

EE 6505 


INC 

CSTATE 

9 

P4P0 

A90C 


LDA 

#$0C 

9 

B482 

SDFC02 


STA 

CH 

V 

BAB5 

A905 


LDA 

45 

9 

m 

BAB 7 

802002 


STA 

CDTMV5 

W 

BaBA 

60 


RTS 



BABB 

C 9 0 ] 

: CKO 1 0 

CMP 

*1 

9 

1 


CONSOLE KtYS ( S T A RT/ OP T I ON/ SE LE C T ) , DEBOUNCES 
THEN AND RETURNS THE STATUS IN 'CONKEY'. 

READ CONSOLE KEYS. 


P48u 0009 A B4C8 

B4BF AD2002 
B4C2 0022 a 6aE6 

BACA EE6505 
64C7 60 

B4C8 C-902 

84C A DO 1 2 A B4DE 

B4CC AO 1 EDO 
B4CF 2907 
BAD 1 C90 7 

B4D3 D 0 1 l A 6 4 E 6 

B4P5 EE 6505 

34D8 A 90 5 
BADA 8D2002 
BA DD 60 


: CK020 


RNE 

LD A 
BNE 

INC 

RTS 

CMP 

BNE 

LD A 
AND 
CMP 
BNE 

INC 

LDA 

STA 

RTS 


BADE AD2002 :CK030 LDA 

B4E1 D003 A B AE6 BNE 


B4E3 6D6505 
BAE6 60 


STA 

! C K 0 9 0 RTS 


! CK020 

CDTMV5 

JCK090 

CSTATE 


#2 

JCKQ30 

CONSOL 
A ANYKEY 
#ANYKEY 
: CK090 

CSTATE 

#5 

CDTMV5 


CDTNV5 

JCK090 

CSTATE 


NO. 

? YES -- KEY PRESSED? 

NO -- ALL DOME. 

INVERT BIT SENSE. 

SAVE FOR 'MLOOP'. 

GO TO STATE 1. 

PUT RETURN CODE IN 'CH', 

; ACTIVATE TIMER. 


? NO. 

? YES -- DEBOUNCE DONE? 

; no. 

} GO TO STATE 2. 


? WAIT FOR KEYS UP STATE? 

; no. 

; YES -- ALL KEYS UP? 


? NO. 

; YES -- GO TO STATE 3. 
? ACTIVATE TIMER. 


? DEBOUNCE DONE? 

; NO. 

; YES -- GO TO state 0. 


PILOT 



f 

I 


4 


4 
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t 


1 . 0 A 
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U1 sPILOT. 


atari CAMAC Assembler Ver 
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84E7 

46 

GRDLI 

PHA 


B4E8 

6D0AD4 


S T A 

WSYNC 

B4F8 

A984 


LD A 

# C 8 L U E 

64 ED 

454 F 


FOR 

COLRSH 

R4EF 

2 5 4 E 


AND 

DRKNSK 

B4 F 1 

8D18D0 


STA 

COLPF2 

84F4 

A91 A 


LD A 

4CYELL0 

84 F6 

4 54 F 


FOR 

COLRSH 

B4F8 

254E 


AND 

DRKRSK 

84 F A 

8D17D0 


STA 

COLPF1 

04 F D 

66 


PLA 


B4FE 

40 


RTI 



1 • 0 A 


<*• 


Page 279 

D1 :PILOT. 


ATTRACT 


ATTRACT 



( 


ATARI CAMAC Assembler Ver l.OA Pagp 290 
PILOT -- H.B. STEWART DlsPILQT. 


I 



B4FF PROC 

; MESSOT -- MESSAGE GENERATOR 


CALLING SEQUENCE! 


1 



• 

f 

• 

A = MESSAGE # (INDEX TO 

INTERNAL TABLE) 




r 

• 

9 

• 

JSR 

MESSOT 



1 


= B4FF 

MESSOT 

= * 





B4FF 

297 F 


AND 

# $ 7 F 

? 

MASK OFF SIGN BIT. 

( 

9501 

OA 


A3L 

A 





= 0000 


IF 

DEBUG 




- 



BEQ 

! MO 100 

• 

9 

0 IS ILLEGAL. 

1 

MB 



CMP 

*MTSI2*1 




• 



90S 

5M0100 

• 

9 

# IS TOO LARGE, 





ENDIF 





B502 

AA 


TAX 





9503 

6D34B5 


LD A 

MESTAB-2f X 

* 

9 

GET MESSAGE ADDRESS FROM TABLE, 


6506 

05 A 7 


ST A 

TEMP2 




B508 

B035B5 


LD A 

MESTAB-lf X 



1 

B50B 

85 A6 


STA 

TEMP2+1 




B50D 

A 0 0 0 


LD V 

#0 



• 

B50F 

B 1 A 7 

SM0010 

LD A 

( TEMP2 ) t Y 




6511 

F 0 1 8 A 6528 


BEQ 

! M0090 

• 

9 

DONE (NO EOL AT END). 

• 

B513 

C6 


I NY 


m 

f 

BUMP POINTER. 

1 

6514 

C9CD 


CMP 

#CR 

} 

INTERNAL CR? 


6516 

0006 A 95 1 E 


BNE 

! MOO 15 

• 

9 

NO. 

t 

6518 

20989F 


JSR 

NEWLIN 




05 1 B 

4C0FB5 


JMP 

J MOO 1 0 

« 

9 

CONTINUE. 

• 

B51E 

C99B 

! M 0 0 1 5 

CMP 

#£0L 




0520 

F006 A B528 


BEQ 

! MOO 2 0 

? 

DONE. 

% 

6522 

208294 


JSR 

CHOT 




P525 

4C0FB5 


JMP 

JM0010 



% 

6528 

20969F 

! M 0 0 2 0 

JSR 

NEWLIN 




B52B 

60 

; M 0 0 9 0 

RTS 




% 










= 0000 


IF 

DEBUG 






! MO 100 

LSR 

A 



• 




STA 

ACC 

• 

f 

PRINT # INSTEAD OF CANNED MESSAGE 


• 



LD A 

#0 




. 



STA 

ACC+1 




m 



LD A 

n 1 4 




m 



JSR 

MESSOT 

• 

9 

*** RECURSIVE CALL *** 




» 

I 

I 

I 

> 


• t 


♦ 




f 

t 

# 


ATARI CAMAC Assembler Ver l.OA 
PILOT -- h.B. STEWART 




LUX 

AACC-DTAB 

- 


JSR 

OECASC 

8S2C 


JMP NEWLIN 

ENDIF 

PRQC 

? ROYMES -- GENERATE "READY 

P52C 

84A9 

RDYMES STY 

TEMP2+2 

B5ZE 

A 9 0 1 

LD A 

ARDYTXT 

B530 

20FF84 

JSR 

MESSOT 

B5 33 

A4A9 

LD Y 

TEMP2+2 


B535 60 RTS 


Pape 261 

01 SPILOT. 


MESSAGE SEQUENCE. 

; SAVE Y REG. 

} "READY" TEXT. 


ATARI CAM AC Assembler Ver 1 , 0 A Paae 
PILOT -- H.B. STEWART 


B53b 


I 

PROC 




? TABLE 

• 

OF MESSAGE ADDRESSES 

6536 

9065 

MESTAB 

D'a 

MES 1 

8536 

97B5 


DA 

MES2 

B53A 

A4B5 


DA 

MES3 

053C 

BBS 5 


DA 

MES 4 

B53E 

C7B5 


Da 

MES5 

B54Q 

CC65 


Da 

MES6 

85^2 

D7B5 


Da 

MES 7 

8544 

DDB5 


DA 

MES3 

8546 

E3B5 


DA 

MES 9 

B548 

EbB5 


DA 

MES 10 

B54 A 

F 265 


DA 

MES11 

85 4 C 

9785 


DA : MES 1 2 

65 4 E 

FE85 


DA 

ME S 1 3 

B55 0 

9765 


DA 

MES 1 4 

8552 

9785 


DA 

MES 1 5 

BS54 

1286 


DA 

MES 1 6 

6556 

1 B86 


Da 

MES17 

B55 6 

2586 


DA 

MES 18 

855 A 

32B6 


DA 

MES 1 9 

855C 

3EB6 


DA 

MES20 

B55E 

4566 


Da 

MES21 

8560 

5466 


Da 

MES22 

8562 

6266 


DA 

MES23 

8564 

8866 


DA JMES24 

8566 

8086 


Da 

MES25 

9568 

9C06 


Da 

MES26 

656 A 

A 1 B6 


DA 

MES27 

B56C 

8186 


DA 

MES28 

556E 

C586 


Da 

MES29 

B57 0 

CAB6 


DA 

MES30 

B572 

E086 


Da 

ME S3 1 

B574 

FAB6 


Da 

MES32 

B576 

1 CB 7 


DA 

MES33 

B578 

3587 


Da 

MES34 

B57 A 

4987 


Da 

MES35 

B57C 

5CB7 


DA 

ME836 

B57E 

7587 


DA 

MES37 

6580 

9487 


D A 

MES38 

6592 

A7B7 


DA ! ME S39 

B584 

AE67 


DA 

! MES40 

9596 

B88 7 


DA 

J MES4 1 

8588 

C66 7 


DA 

• MES42 

B58A 

CFB7 


DA 

i MES43 

B5?C 

D687 


DA 

j MES44 

B58E 

DEB 7 


DA 

5 MES45 


= 0 05 A 

MTS I Z 

= *-mestab 

B5P0 

0052454144 

JMES1 

DB 

CR, 'READY', EOL 


= FFFF 


IF 

DEBUG- 1 

B597 


! M E S 1 2 



65 Q 7 


; MES 1 4 




262 

D 1 : P I L 0 T 









PILOT ~ h.B. STEMrJ ^er 1.0A 


3597 

P597 

5748415427 

s ME S 1 5 
:MES2 

ENDIF 

DP 'l*HAT # ,SQUOTE, 'S THAT?',0 

P5A4 

43414E2754 

:MES3 

DP 

'CAi\',SGUOTE, 'T USE COMMAND 

3596 

4449564944 

SMES4 

DB 

'DIVIDE BY 0',0 

B5C7 

4F4F505300 

: MESS 

OB 

'COPS', 0 

95CC 

492F4F2045 

8 MES6 

D8 

'I/O ERROR ',0 

B507 

425245414B 

: M ES7 

D8 

'BREAK ' , 0 

85DQ 

202A2A2A20 

:MES8 

D8 

' * ** ',0 

05E3 

4E4F20524F 

: MES9 

D8 

'NO RCOM',0 

B5E6 

5748455245 

8MES1 0 

D8 

'IM-iERE? ' , 0 

B5F2 

553A20544F 

SMES1 1 

06 

'US TOO DEEP',0 

- 

= 0000 

SMES12 

IF 

DB 

ENDIF 

DEBUG 
'BUG 1 ',0 

B5F£ 

4C494E4520 

8MES13 

D8 

'LINE M OUT OF RANGE', 0 

am 

= 0000 

• MES 1 4 

IF 

OB 

DEBUG 

'ERROR A',0 

- 


8MES15 

DB 

'P LEASE SHORTEN ' , EOL 


ENDIF 


Bt> 1 2 

2420564152 

S MES 1 6 

08 

'$ VARS 8 ' , OR , EOL 

B6J8 

0023205641 

: MES 1 7 

OB 

CR,'# VARS: # ,CR, EOL 

B625 

0D55534520 

: MES 1 8 

06 

CR , 'USE STACK: ',CR, EOL 

Bb32 

0D4 7522050 

8 MES 1 9 

DB 

CR,'GR FARMS8 ',CR,EOL 

B63E 

5448455441 

8MES20 

DB 

'THETA=' f 0 

B645 

0000465245 

: MES2 1 

DB 

CR,CR, 'FREE MEMORY = ' , 0 

B654 

544F4F204D 

8MES22 

OB 

'TOO MANY I/OS', 0 

6662 

7D4 l 544 1 52 

8MES23 

DB 

CLEAR, 'ATARI PILOT (C) 

B686 

2D2D3E2000 

8 ME S24 

DB 

« 

1 

1 

V 

% 

0 

B6BD 

434 1 4^2754 

8 MES25 

OB 

'CAN'fSGUOTEr # T CONTIN 

Bb^C 

53544F5000 

8 MES26 

DB 

'STOP',0 


Bto A l 0043414E27 8MES27 


DB 


CR, 'C AN # , SliUOTE * # T RENUMBER ' t EOL 


PRUT 


ATARI CA^AC 
-- H.B. STEWART 

« 


€ 

B6B 1 

4F5645524C 

: MES28 

4 

B6C5 

2 0544 F20 0 0 

:MES29 


86CA 

0O50524F47 

:mES30 

1 

06 EO 

0D594F5520 

: MES3 l 

i 

86 P A 

204C494E45 

:MiES32 

87 1 C 

53504C4954 

: MES33 

i 

97 35 

4E4F542041 

:MES34 

i 

R7 49 

0D492F4F20 

:MES35 

1 

875C 

5348414445 

:MES36 


8775 

4E4F204D4F 

5MES37 


R794 

414C524541 

: MES38 


07 A 7 

50454E533A 

: MES39 

| 

87 A£ 

424 1 434B47 

:MES40 


B798 

5455525440 

:MiES41 

B7Ca 

4D4F44453A 

: ME S42 

1 

87CF 

454447453A 

:MES43 

% 

B70b 

5350454544 

:MES44 


B7DE 

57414C4C53 

:MES45 


* 


% 

% 
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D1 SPILOT. 

DB 'OVERLAPPING RANGE: ',0 

OB ' TO ',0 

DB CR , 'PROGRAM IS UNCHANGED ', EOL 

08 OR, 'YOU ARE ABOUT TO DELETE ',0 

DB ' LINE CS) . ',CR, 'ARE YOU SURE (Y 

08 'SPLIT SCREEN NOT ALLOWED', 0 

OB 'NOT A GRAPHICS MODE',0 

UB CR, 'I/O ASSIGNMENTS: ',CR, EOL 

OB 'SHADE REGION TOO COMPLEX', 0 

06 'NO MORE PEN COLORS--USE CHANGE' 

OB 'ALREADY HAVE COLOR', 0 

08 'PENS: ',0 

06 'BACKGROUND: ',0 

OB 'TURTLE PEN: ',0 

DB 'MODE; ',0 

OB 'EDGE: ',0 

08 'SPEED: ',0 

D8 'WALLS: ',0 

EPROC 


OR N): ',0 


% 


ATARI CAMAC Assembler Ver l.OA Page 285 
PILUT -- H.8. STEWART DliPILOT. 




? GRAPHICS 
; 

TABLES 



• 

; mode 

t 

CHARACTERISTICS (BY MODE) 


= 0000 

f 

NG 

g 

0 


= ooeo 

FO 

g 

$80 ? 


- 0090 

SC 

g 

FO+SPLIT ? 

R7E6 

OOOoOO 

GCHAR 

D 6 

NG f NG r NG 

F7E9 

9090909090 


DU 

SC, SC, SC, SC, SC, SC,FO 

67F2 

00009090 


D8 

NG , NG , SC , SC 



• 

? PIXEL 

• 

r 

WIDTH MASKS 

67F6 

FFFFFF 

DATMSK 

DB 

$FF,$FF,$FF 

8 7 F 9 

0301030103 


D6 

3,1,3,1,3,1,$F,$F,$F 

B802 

FFFFO 1 03 


DB 

$FF,$FF,1,3 



7 NUMBER OF 

FOREGROUND COLORS 

8806 

000904 

COLRS 

DB 

0,4, 4 

6809 

0301030103 


DB 

3,1,3,1,3,1,15,8,15 

6812 

00000103 


DB 

0 , 0 , 1 , 3 


ALLOWED BUT NO SPLIT SCREEN (FULL ONLY) 
ALLOWED WITH SPLIT SCREEN. 


; SCREEN CENTER OFFSETS 


8816 

1300090009 

XCENTR 

Dw 

19,9,9 

P81C 

1300270027 


DW 

19,39,39,79,79,159,39,39,39 

682E 

1 30013004F 


DW 

19,19,79,79 

6836 

0B0 00B0005 

YCENTR 

DW 

11,11,5 

B83C 

0600170017 


DW 

11,23,23,47,47,95,95,95,95 

664E 

060005005F 


DW 

11,5,95,95 



? SCREEN BOUNDARIES FOR FILL 

8856 

2600120012 

COLMAX 

DW 

38,18,16 

Besc 

26004E004E 


DW 

36,78,78,158,158,318,78,78,78 

B66E 

260026009E 


DW 

36,38,156,156 

6876 

160016000A 

ROWMAX 

DW 

22,22,10 

P67C 

16002E002E 


Dw 

22,46,46,94,94,190,190,190,190 

668E 

1 bOGO ADOBE 


Dw 

22,10,190*190 



; TEXT 

SCREEN 

MARGINS 

6896 

020000 

LMRGTB 

DB 

a, o,o ? left margins. 

6899 

271313 

RMRGTB 

DB 

39,19,19 7 RIGHT MARGINS 


, 


COLOR CLOCKS PER HORIZONTAL UNIT FOR MODES 0 - 15. 
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ATARI CAMAC Assembler Ver 
H.B. STEWART 


1 • 0 A Pege 286 

D1 JPILOT. 


1 

R89C 

080608 

CCPXTB 

DB 

8 , 8 , 8 


B69F 

04020201 0 1 


DB 

4, 2, 2, 1,1, 0,2, 2, 2 ; (0 = 1/2) 

1 

B8A6 

04040101 


D6 

4,4, 1,1 



? SCAN 

LINES 

PER CURSOR VERTICAL UNIT FOR MODES 0 - 15. 

i 

B8AC 

100810 

SLPYTd 

DB 

16,8,16 


68AF 

0604040202 


D6 

8, 4, 4, 2, 2, 1,1, 1,1 7 CO s 1/2) 

i 

BeB8 

08100101 


DB 

8,16,1,1 



; THIS 

IS THE 

NUMBER OF LEFT SHIFTS NEEDED TO MULTIPLY COLORS 

( 



? BY # 

BYTES/ROW. CRCWCRS*5)/C2*DHLINE) 

B8BC 

030202 

ONLINE 

DB 

3,2,2 


B88F 

0101020203 


DB 

1,1, 2, 2, 3, 3, 3, 3, 3 

< 

68C8 

03030203 


DB 

3, 3, 2, 3 


; 



B6CC 

00010307 

HMSK DB 

0, 1,3,7 




; OFFSETS TQ 

DISPLAY LIST INTERRUPT BYTE FOR SPLIT SCREEN. 


88D0 

oooooo 

DLIOFF DB 

0,0,0 

} 

B8D3 

162C2C5454 

D6 

24,44,44,84,84,166,0,0,0 


B8DC 

OOOOA4A6 

DB 

0,0,164,166 

t 



,* VISIBLE TURTLE Y OFFSET 


B8E0 

0101000100 

TROY DB 

1,1,0, 1,0,0 

f 

88E6 

0002010101 

Db 

0,2, 1,1, 1,0 


86EC 

0000020101 

DB 

0,0,2, 1 , 1 ,2 


88F2 

0000000100 

DB 

0,0,0, 1,0,1 


# 

? VISIBLE TURTLE X OFFSET 


# 

B8F8 

G303030303 

TRDX 

D8 

3, 3, 3, 3, 3, 3 




B8F£ 

0303030303 


DB 

3, 3, 3, 3, 3, 3 




8904 

0303030304 


DB 

3, 3, 3, 3, 4, 4 



♦ 

69 0 A 

0504040404 


DB 

5, 4, 4, 4, 4, 4 






? VISIBLE 

TURTLE PLAYER DATA 



• 

6910 

10383810BA 

VTURT 

DB 

$1Q,$36,$38,$10,$BA,$FE,$6C,$EE,$FE,$FE,$7C,$7C,$BA»$82 

; 

0 

# 


= 000E 

VTHITE 


★-VTURT 

• 

9 

HEIGHT OF TURTLE REP 


B91E 

06066E367C 


Db 

$06,$06,$6E,$36,$7C,$7C,$EE,$EE,$BE,$7F,$7D,$7D,S04*$0C 

} 

1 

• 

B92C 

3313BFFE7E 


D6 

$33,$13, SB F,$FE,S 7E,- SEE, SEE, SFF,$F D,S7D,i3C, $18, $06,118 

• 

9 

2 

• 

B93A 

30 1 338BFFC 


DB 

$3Q,$13,$3B,$BF,$FC,$7E,$EE,$EE,$FF,$7D,$7D,$38,$08r$18 

% 

9 

3 


8946 

1608BBFF7D 


Db 

$18,$08,5BB,$FF,$7D,$EE,$EE,$FE,$7C,$7D,$3B,$20,$60,$00 

1 

4 

% 

8956 

3090FB7FFF 


DB 

$30,$90,$FB,$7F,$FF,$EE,$EC,$7E,$7C, $32 , $46, $C 0 , $00 , $00 

; 

5 


% 


A 1 A K I CAMAC Assembler Ver 1,0A 
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B96 9 

0688307878 

Db 

408, 480,480,478, 

8972 

OOOOCOA632 

06 

$00, $00, SCO, $46, 

B93Q 

0060203B7D 

DB 

$00, $60 , $20 , $3b, 

B98E 

1608307070 

06 

$18,$08,$38,$7D, 

B99C 

10O8183C7D 

06 

$16,$08,$ie,$3C, 

09 A A 

0C0a7D7D7F 

Db 

$0C, $0A,$7D,$7D, 

B9B8 

82 8A7C7CFE 

06 

$82,$8A,$7C,$7C, 

B9C6 

3U20BE8E7E 

DB 

$30,$20,$8E, $BE , 

B9D A 

1810183CBE 

06 

$18, $10, $16, $3C , 

B9E2 

18101CBEBE 

D6 

$18,$10,41C,$BE, 

P 9 F 0 

00060ADCBE 

DB 

$00,$06,$0A,$DC, 

B9FE 

00000362 AC 

DB 

$00, $00, $03, $62, 

BAOC 

10110D1E1E 

D6 

$10,$11,$0D,$1E, 

BA 1 A 

0C09DFFEFF 

DB 

$0C,$09,$DF,$FE, 

0A26 

181 ODOFFBE 

DB 

$ 1 8 , $ 1 0 , $ DD , $ F F , 

B A 36 

OLC8DCF03F 

DB 

$0C,$C8,$DC,$FD, 

6A A A 

CCC6FD7F7E 

DB 

$CC,$C8,$F0,$7F, 

BA 52 

6060766C3E 

DB 

$60, $60,$76,$6C, 


BA60 

BA60 

SOB A 

; COLOR REGISTER ASSIGNMENTS 
PROC 

COLADR DA JCSETO 

BA62 

8AB A 

DA 

j C S E T 1 

BA6A 

8 AB A 

D A 

CSET1 

6 A 6 6 

6 ABA 

DA 

CSET1 

BA66 

SABA 

Da 

CSET1 

PA6 A 

6ABA 

Da 

CSET1 

BA6C 

8 AB A 

DA 

CSET1 

BA6E 

8 ABA 

DA 

CSFT1 

BA 70 

6 9B A 

DA 

CSET2 

B A 72 

8 D 6 A 

Da 

CSFT3 

B A 7 A 

9 1 B A 

DA 

CSE T A 

BA 76 

8 DBA 

Da 

CSET3 

8 A 78 

8 0 P A 

Da 

CSETO 

BA7A 

6 06A 

DA 

CSF.TO 

BA7C 

8 ABA 

D A 

CSET1 

BA7E 

BABA 

Da 

CSE T 1 
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»78,SEA,$EF,$FA,$78,$78,$B0,S88,S0d,400 ) 6 

$32,$7C,$7E,$EC,$EE,$FF,$7F,$FB,$90,430 t 7 

S7D , $7C , $EE , SEE , $ FE , $7D , $F P , $P8 , $ 08 , $ 1 8 ; g 

$7D,$FF,$EE,$EE,$7E,$FC,$6F,$3B,413,$3Q j 9 

$70 ,$ FD , $EF , SEE , $FE , $7E , $F£ , $BF ,$ 1 3 ,$ 33 > 10 

$7F,fAE r $EE,$FE,47C,$7C,$36,$6E,$06,$06 ) 11 

$FE , SEE , SEE , $7C , $FE , $B A , $ 1 0 , $38 , 438 , $ 1 0 ) 12 

$7E,$6D,$6F,$7F,$3E,$3E,$6C,$76,$60,$6Q ) 13 

$8£,$BF,$FF,$6F,$6F,$7E,$7F,$FD,4C8,$CC ? 1M 

$BE , $F F , $6F , $6F , $7E , $3 F , $F D , $DC , 4 C 8 , $ OC ; 15 

$BE,$3E,$77,$77,$7F,$BE,$FF,$DD,$10,$18 ; 16 

$AC,$3E,$7E,$37,$77,$FF,$FE,$DF,409,$0C ; 17 

$ IE , 456 , $F8 , 45F , 4 1 E , $ 1 E , SOD , $ 1 1 , 4 1 0 , 400 t 16 
$FF,$77,$37,$7E,$3E,$AC,$62,$03,40Q,40Q ; 19 

$8E,$77, $77,$7F, $3E, $BE, $DC, $04,406,400 ? 20 

$3F,$7E,$77,$77,$FF,$BE,$BE,$1C,$10,$18 t 21 

$7E,$77, $77,4FF,SBF,$BE,$3C,$16,$10,$18 ; 22 

$3E,$3E,$77,$77,$7D,$7E,$BE,$BE,$20,$30 } 23 


MODE 

0 

MODE 

1 

MODE 

2 

MODE 

3 

MODE 

A 

MODE 

5 

MODE 

6 

MODE 

7 

MODE 

6 

MODE 

9 

MODE 

10 

MODE 

11 

MODE 

12 

MODE 

13 

MODE 

14 

MODE 

15 


PILOT 
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1 . 0 A Rage 288 

D 1 : P I LOT , 


BA80 

00000000 

:CSET0 

D6 

o 

o 

o 

» 

o 




BABA 

0604050607 

! C SET 1 

DB 

6,4, 5, 6, 7 

• 

9 

BAK, 

PF0, PF 1 

BA89 

06050000 

5CSET2 

DB 

6 , 5 , 0 , 0 

% 

f 

PF2, 

PF 1 

BA8D 

06000000 

i CSET 3 

DB 

CD 

o 

o 

o 

; 

BAK 


P A 9 1 

0001020304 

! CSET4 

DB 

0,1, 2, 3, 4, 5, 6, 7, 6 





= BA99 

PRGEND 

EPROC 

= *• 1 




B a9 A 



END 

PILINI 




no EPRCRs, 1769 

Labe 1 s, 

S0E00 

free. 





ABRTCK 

9F7E 

24/33 

94/49 

106/24 

107/43 

3.07/47 

194*35 

ABTERR 

0087 

3#29 

21/30 

1 94/41 

234/56 

262/54 

275/ 8 

ACC 

0 0E2 

7*54 

163/23 

163/40 

183/57 

184/19 

184/37 

accbuf 

BD7B 

1 0 #4 6 

14/10 

14/12 




ACCLNG 

00FE 

4 #34 

67/58 

68/17 




ACLN 

0086 

7# 1 6 

14/11 

14/13 

66/61 

67/ 7 

67/12 



71/32 

71/44 

71/45 

71/46 

71/49 

71/56 



194/22 

194/24 





ACQLR1 

0067 

7# 1 5 

13/27 

116/55 




AC0LR2 

0066 

7# 1 4 

13/25 

116/53 




AORESS 

0 0 F 6 

8# 6 

102/35 

102/37 

102/41 

102/46 

102/47 



235/44 
264/ 9 

235/46 

235/48. 

235/52 

235/53 

236/15 

AINC 

00FC 

6* 9 

18/46 

1 16/41 

120/34 

121/ 5 

122/22 

AKFLAG 

0547 

9*21 

66/10 

66/42 

69/41 

69/46 


ALINE 

00FA 

8* 6 
124/33 

17/35 

17/37 

17/57 

18/45 

116/30 

ANYKEY 

0007 

5*46 

277/20 

277/21 

277/24 

277/46 

277/47 

APPMHI 

OOOE 

2*35 

136/36 

136/39 

137/15 

137/16 


ASCDEC 

9QBB 

52/22 

69/18 

3 65*20 




ASTNES 

0006 

3*41 

21/19 

21/41 




ATMERR 

0002 

3*26 

49/ 9 

56/15 

92/30 

190/47 


ATNRET 

83 A9 

49/17 

51/57 

54/36 

55/10 

56*32 

93/39 

ATO*' 

6 1 6E 

17/46 

48*24 

55/61 

66/22 

90/10 



201/57 

272/ 7 





AT0N2 

8171 

48*28 

50/43 





A TP I 0 

0020 

5*59 

62/13 

146/33 

in 

\ 

O' 

=3- 



ATRLIN 

0000 

5*60 

169/16 





A TRNU M 

0040 

5*58 

49/46 

81/56 


91/30 


A T R S T R 

0080 

5*57 

51/43 

73/22 

81/43 

146/34 

ATRT YP 

0566 

9*39 

49/47 

51/44 

73/23 

91/31 

AUDC1 

D201 

4*46 

97/26 

196/16 

276/31 



AUDCLR 

9PB4 

15/33 

97/45 

140/45 

196* 8 



AU DC ft 

02 08 

4*51 

196/13 



276/29 


AUDF 1 

D200 

4*47 

4/48 

97/25 

196/17 



, 


PF2 ( , PF 3 FOR NODES 1 & 2). 


244/35 

244/44 

244/52 





67/46 

71/57 

67/61 

72/22 

68/30 

72/28 

66/47 

73/37 

68/50 

73/51 

70/59 

73/53 

71/20 

194/21 

103/37 

236/17 

103/39 

236/20 

103/44 

236/21 

103/48 

236/23 

103/49 

253/44 

235/38 

263/49 

235/42 

263/51 

116/37 

120/30 

121/ 7 

121/25 

122/14 

122/18 

122/21 

95/25 

97/55 

99/15 

125/46 

144/22 

197/29 

199/ 5 


153/36 


156/ 6 156/12 156/17 169/17 


r> 


A T A F I C A P A C Assembler Ver 



AUDIGR 0515 

8 A 6 0 

96/41 

96/56 

AUDTAF 8471 

276/28 

276*39 


AUREGS 0004 

4 A 3 8 

8/60 

8/60 

AUTKPS 9169 

116/16 

H6/16 

117*15 

AUTOIN 0536 

9 A 1 2 

13/57 

16/11 

AUTOXT 0081 

3A1 9 

18/30 


AUX1 05 1 U 

8A61 

1 3/58 

15/16 

AUX2 05 1 E 

9 A 5 

13/59 

15/19 

AXFLAG 0546 
n EAkCLR 0566 
n 6ELL 0 0 FO 

9#2 0 
1 0 A 1 3 
2 A 1 4 

66/1 1 

67/49 

bHIGh 0095 

8 A35 

1 14/57 

1 19/14 

6L0K 0093 

8 A 3 4 

114/56 

114/61 


123/25 

124/ 7 

127/11 

6 NU^ 0097 

8A36 

116/42 

1 1 8/43 

fcOTSCR 02BF 

2*49 

61/41 

1 34/48 

6PTR 0080 

4 A 1 1 

51/ 5 

66/26 

6PACKT 93C8 

114/50 

118/36 

120/46 

BREAK 0011 

2*36 

194/36 

194/39 

6SLASH 005C 

2*15 

37/61 

58/26 

BUFPN'T 9 78C 

134/ 8 

139/50 

142*24 

CALDEL A232 

207/12 

207*24 

243/12 

CASC7L 8 F 9 A 

107/16 

107*26 


CASSGN A4DE 

208/22 

210/42 

217*17 

CASSOF 003C 

4*54 

15/31 

107/26 

C A S S 0 N 0034 

4*53 

107/27 


C BLACK 0001 

5*16 

40/10 

251/60 

C8LUE 0064 

5*14 

16/56 

40 / e 

CCPXTB B69C 

220/60 

28 6* 6 


CDEST 0530 

9* 6 
202/53 

13/ 7 

20/27 

COG 8076 

27/43 

31/16 

35/60 

CDOMV 0010 

2* 9 

195/56 


COTAb 803E 

27/43 

29/18 

29/20 


34/60 

35/ 5 

35/ 7 


35/30 

35/32 

35/34 


35/56 

35/58 

35/60 


36/25 

36/27 

36/29 

COTF'VS 0220 

3*10 

277/30 

277/36 

CE1ENP 0563 

10* 5 

136/27 

136/31 

CM 02F C 

2*37 

54/13 

277/26 

CHKCEV 9687 

139/36 

1 *6/56 

149*16 

CHKEGS 9F00 

66/15 

66/35 

90/29 

CHKl N 9466 

17/60 

121/10 

125/57 

CMKStP 9EED 

138/54 

191* 6 


C6k TK^ 9fc F 9 

27/31 

29/36 

48/26 

CHOT 9u82 

21/17 

59/25 

61/31 


67/39 

68/26 

88/31 


195/41 

195/55 

195/57 

CIO 6456 

1*19 

25/36 

132/34 

C*i>090 9693 

140*39 

149/ 1 8 

149/25 

CKfCA 9£B6 

49/24 

51/26 

76/49 

CLEAR 0070 
CLEFT 00 1 E 

2*13 

2*10 

61/30 

212/26 

CLETTR 9E 9 1 

48/61 

70/47 

166*49 

CLHf 4 f A it BO 

214/35 216*34 



CLNCM 0006 2 8/32 * 2 * 34 
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97/ 8 

97/24 

196/19 

1 96/20 

276/12 

276/14 

276/17 






96/ 9 

196/15 

276/10 










18/25 

18/49 

18/54 

116/52 









139/33 

139/38 

69/39 

1 39/44 
139/45 
99/58 











119/23 
115/ 7 
128/54 

1 19/26 
119/15 

121/47 

119/24 

123/36 

119/27 

124/ e 
121/43 

127/38 
122/ 5 

12e/59 

122/53 

123/ 

6 

123/ 

9 

123/15 

118/51 

120/53 

120/54 

120/59 

122/27 

122/30 

122/31 

127/ 

5 

127/ 

6 

127/29 

66/56 

126*56 

240/45 

69/24 

240/48 

90/16 

90/53 

93/42 

95/28 

97/58 

99/19 

199/ 

8 



252/16 

279/ 9 




109/23 

109/31 

131/23 

134/52 

135/17 

43* 6 

31/16 

34/38 

34/40 

34/42 

34/44 

35/ 9 

35/1 1 

35/14 

35/16 

35/ie 

35/36 

35/38 

35/40 

35/42 

35/44 

36/ 5 

36/ 7 

36/ 9 

36/11 

36/13 

36/31 

277/53 

136/48 

36/33 

277/56 

136/50 

36/35 

42*23 

42/34 


91/10 

191*54 




129*49 





64/10 

80/30 

81/10 

82/ 7 

96/12 

*2/47 

62/54 

83/30 

84/ 5 

84/37 

104/38 

105/31 

131*20 

142/54 

186/49 

201/50 

202/21 

219/10 

280/48 


134/ 9 

139/52 

140/43 

141/28 


92/12 

ie9*45 

190/11 

190/44 


283/53 





169/45 

214/42 





137/34 

201/28 

201/29 

201/31 

202/52 

34/50 

34/52 

34/54 

34/56 

34/58 

35/20 

35/22 

35/24 

35/26 

35/28 

35/46 

35/48 

35/50 

35/52 

35/54 

36/15 

36/17 

36/19 

36/21 

36/23 


43/35 


100/15 

191/12 

191*31 

201/34 

202/14 

84/40 

85/ 6 

86/49 

87/10 

87/35 

167/28 

187/40 

194/ 5 

195/29 

195/38 


ATARI CA^AC Asse 


CLOSE 000C 

1452 

140/40 

CLOSED 9881 

62/27 

75/17 

CLRNAT A<*96 

206/ 9 

209/17 

CLRFkG 87C0 

13/40 

75/34 

CLRThT A56B 

220/13 

220417 

Ci*ACGk 7C8D 

30/47 

31/26 

CRATCH 7C56 

27/37 

30439 

CMDtRR 0002 

3420 

47/38 

CNTEhR 0099 

3445 

65/11 

CNU*BP 9E83 

16/38 

26/16 

CNVRT A A 9F 

210/54 

227/58 

C 01 AC 0 09 A 

6426 

8/29 

COLADR BA60 

217/53 

217/55 

CCLCHS 0055 

2445 

58/44 


233/56 

234/ 8 


255/35 

255/50 


259/10 

259/13 


263/28 

263/30 

n COIGST 0244 

2428 


COLFLG 059F 

9449 

233/47 

COLFAX B656 

134/28 

134/30 

COLORO 02C4 

2456 

18/57 

COLRF1 DO 1 7 

54 6 

279/16 

C0LFF2 DO 1 8 

5# 7 

279/12 

COUPS 6806 

134/36 

285431 

COLRSH 004F 

2431 

279/10 

COMBUF BDOO 

10445 

14/21 

COMFRS 9629 

112/60 

133/ 8 

COND 810E 

28/52 

46425 

CONKEY 0544 

94)8 

16/16 

CONKRD 649 A 

277/12 

277416 

CONSOL D01F 

4456 

277/19 

COUNT* 009C 

8429 

8/30 

CR OOOD 

24 6 

280/39 


284/10 

284/12 

CRED 0042 

5413 

39/59 

CRIGHT 0 0 1 F 

2411 

71/14 

CPSINH 02F0 

2438 

134/14 

CRSNUP 9FA7 

99/35 

99/55 

ESTATE 0565 

9438 

277/16 

CTA8 7D0I 

31/22 

31/24 

CTA6AT 0510 

8454 

13/61 

CT50TH 0060 

34432 

34/33 

CTCLN 0010 

34431 

34/33 

CTIMM 0040 

16/43 

34429 


35/ 7 

35/ 9 

CTNORR 0060 

34433 

34/38 


35/52 

35/54 


36/21 

36/23 

CTRUN 0020 

18/36 

34430 

CUP 001C 

24 8 

195/54 

CYELLO 0 0 1 A 

5415 

18/58 

DAdSI 9CFF 

1774 6 

229/42 

DADDA 9DAC 

164/49 

183457 

L'ADDi 9C32 

18/47 

44/13 


187/16 

207/50 

DADDIX 9C33 

1 734 9 

251/13 


bier Ver l.OA p 8ge 2*0 

D1 JPILOT. 


148» 9 

209/42 

209/56 210/29 211/26 

75437 

110/16 

220/54 

32/ 6 

32444 


48/49 

229/26 

229/57 

287*46 

69/14 

233/27 

229/59 

165/44 

234/11 

229/60 

188421 

234/31 

230/23 

61/25 

234/1 0 

255/5? 

259/23 

265/15 

231/61 

235/57 

256/40 

259/25 

265/16 

232/ 8 
235/61 
256/42 
260/ 9 
265/25 

232/17 

236/26 

256/49 

260/12 

265/28 

255/15 

285447 

255/40 

256/55 

259/29 

18/59 

116/54 

1 1 6/56 



279/14 

15/50 
1 33/38 

16/20 

15/52 

136413 

16/22 

16/51 

16/59 

277/45 

230/ 7 

230/25 

230/32 

230/33 

282/57 

283/39 

283/41 

283/41 

284/14 

284/20 

264/20 


252/ 8 

137/47 

147/15 

195/53 


132/19 

132/46 

195453 


277/26 

277/39 

277/50 

277/59 

34435 

105/ 9 

105/10 


30/39 

30/54 

31/30 

31/35 

35/14 

35/16 

35/22 

35/24 

34/33 

34/32 

47/33 

34/40 

34/42 

34/44 

35/11 

35/18 

35/20 


35/28 

35/30 

35/32 

35/34 

35/56 

35/56 

35/60 

36/ 5 

36/27 

36/29 

36/33 

36/35 

34/32 

35/42 

36/25 


39/61 

252/12 

279/13 


22^/4 7 

230/12 

230/30 


121/ e 

122/23 

123/27 

123/60 

230/39 

231/12 

231/36 

231/53 


213/58 

214/45 

215458 





189/49 

235435 

230/24 

253/41 

231/51 

262/53 

232/29 

264/ 6 




232/18 

240/20 

256/51 

261/11 

267/19 

232/35 

240/23 

257/27 

261/14 

267/21 

232/44 

253/28 

257/30 

262/43 

232/46 

253/30 

258/31 

262/45 

233/41 

255/25 

258/34 

263/18 

233/43 

255/27 

258/48 

263/20 

233/55 

255/33 

258/51 

263/26 

265/13 

265/22 

265/35 






I 


16/61 

277/25 







234/13 

283/43 

283/43 

263/45 

283/45 

283/49 

283/49 

283/61 


47/34 

35/26 

36/31 






< 

34/50 

34/52 

34/54 

34/56 

34/56 

34/60 

35/ 5 

4 

35/36 
36/ 7 

35/38 
36/ 9 

35/40 

36/11 

35/44 

36/13 

35/46 

36/15 

35/48 

36/17 

35/50 

36/19 

♦ 

# 








• 

161/45 

165/13 

166/48 

167/25 

167/33 

173# 7 

183/58 



232/32 232/56 # 
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DADOP 9 ooa 

DADDS 9D04 
DAMD1 9D66 
DA TV SK B 7 F 6 
DCAERR 0026 
DCLOSE 9 7 3F 

DCM010 9C1C 
DCMFA 9DB6 
DCMPI 9C15 

DCwCI 9C0F 
0 DCRI 9012 
DDIVI 9C87 
DEBUG 0000 
UECASC 9E 1 4 

DECCOL B24 A 
PELVES 009F 
DELTAC 0095 
DEL TAP 0093 
DEL X OOCA 
DELV OOCC 
DEQTI 9D1E 
UFA010 9D50 
UFA LSE 9D4E 
DFCl.RS AF 75 
DGETI 9D3C 
DGFTl 9D2C 
DHLINE 888C 
DIGIT 0511 
DIN 9 ? 5 J 

DINDEX 0057 
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